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Grafik-Programmierung C 128 
Februar 1986, 196 Seiten inkl. Disk 


Die Programmierung von Grafik gehört zu den 
interessantesten Aufgaben, die man mit dem 
Commodore 128 PC lösen kann. Dieses Buch 
hilft Ihnen dabei! Das Themenfeld ist weit ge- 
spannt und behandelt unter anderem: hoch- 
auflösende und Mehrfarben-Grafik im C128- 
Modus. Alle BASIC 7.0-Befehle dazu werden 
detailliert besprochen und ihre Möglichkeiten 
und Grenzen gezeigt: die Programmierung von 
Sprites und Shapes; nützliche Assemblerpro- 
gramme (z.B. eine OLD- und eine MERGE- 
Funktion, die die modulare Programmierung 
unterstützt); die Videochips VIC und VDC und 
ihre Programmierung; eine Technik zur Erzeu- 
gung von selbstmodifizierenden Programmen. 
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Pe ebene Welt der Grafik 
an Anwendungsbeispielen 
in BASIC und ASSEMBLER: = 
‚Sprites % Shapes % Animation 


GRAFIK- 


PROGRAMMIERUNG 


Dr. Wolt-Jürgen Becker 


CP/M 3.0 


Best.-Nr. MT 90202 
ISBN 3-89090-202-2 
DM 52,-/sFr. 47,80/0S 405,60 


Markt&Technik 


Marktägechnik 


Ein unentbehrliches Nachschlagewerk für die praktische Arbeit 
mit CP/M 3.0. Mit vielen Beispielen für den Einsatz und 


sollten Sie 
Ihnen alle 
beitungsa 
sprachen 
und über 


der Strukt 
Kapitel üb: 
fahren Si 
system ä& 


Verwendung der Hilfsprogramme und Anleltung zur Implemen- 
tierung von Standardprogrammiersprachen. 


Einfiihrung in die Programmierung 
und das Arbeiten mit BASE N. 


Prof. Dr. Wolf-Jürgen B 


CP/M 3.0 Anwender- Handbuch 6128 
2. Quartal 1986, ca. 250 Seiten 


Wenn Sie Ihren 
ganz gut im Grif; 
steigen wollen 
stungsstark 


dem C128 PC 
der CP/M-Bef 
ebensowenig 


liert und mit it 

Best.-Nr. MT 90196 

ISBN 3-89090-196-4 

DM 52,-/sFr. 47,80/6S 405,60 


P. Rosenbeck 
Das Commodore 128- 


Handbuch 
1985, 383 Seiten 


Dieses Buch sagt Ihnen alles, 
was Sie über Ihren C128 wis- 
sen müssen: die Hardware, 
die drei Betriebssystem-Modi 
und was die CP/M-Fähigkeit 
für Ihren Computer bedeutet. 
Aber Sie werden irgendwann 
Lust verspüren, tiefer in Ihren 
C128 einzusteigen. Auch da- 
für ist gesorgt: an einen 
Assemblerkurs, der Ihnen zu- 
gleich die Funktionsweise 
des eingebauten Monitors 
nahebringt, schließen sich 
Kapitel an, die mit Ihnen auf 
Entdeckungsreise ins Innere 
der Maschine gehen. Daß die 
Reise spannend wird, dafür 
sorgen die Beispiele, aus de- 
nen Sie viel über die Interna 
des Systems lernen können - 
bis hin zur Grafik-Program- 
mierung. 

Best.-Nr. MT 90195 

ISBN 3-89090-195-6 

DM 52,-/sFr. 47,80/0S 405,60 


J. Hückstädt 
BASIC 7.0 auf dem 


Commodore 128 
1985, 239 Seiten 


Das neue BASIC 7.0 des 
C128 eröffnet mit seinen ca. 
150 Befehlen ganz neue Di- 
mensionen der BASIC-Pro- 
grammierung. Es ermöglicht 
dem Anfänger den einfachen 
und effektiven Zugriff auf die 
erstaunlichen Grafik- und Ton- 
möglichkeiten des C128; der 
Fortgeschrittene findet die 
nötigen Informationen für 
(auch systemnahe) Profi-Pro- 
grammierung mit strukturier- 
ten Sprachmitteln. 

An praxisnahen Beispielen 
(wie z.B. der Dateiverwaltung) 
zeigt der Autor auf, wie man 
die für den 128er typischen 
Merkmale und Eigenschaften 
(Sprites, Shapes, hochauflö- 
sende Grafik, Musikprogram- 
mierung und Geräusche) opti- 
mal nutzt! 

Best.-Nr. MT 90149 

ISBN 3-89090-149-2 

DM 52,-/sFr. 47,80/0S 405,60 
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Kollerstrasse 3, CH-6300 Zug, ® 0421415656 
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Verlagsges. mbH, Alser Straße 24, 1091 Wien, 
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Irrtümer und Änderungen vorbehalten. 


R. Schineis, M. Braun, 
N. Demgensky 


C128-ROM-Listing: 
Operating System 
März 1986, 450 Seiten 


Dieses Buch ist für alle Pro- 
grammierer und Anwender 
gedacht, die mehr über ihren 
Commodore 128 PC wissen 
wollen: Eine Einführung in die 
Organisation und Wirkungs- 
weise eines Mikrocomputers 
sowie eine detaillierte Be- 
schreibung der Mikroprozes- 
sorfamilie 65XX bzw. 8502, 
Aufbau und spezielle Hard- 
wareeigenschaften desC 128 
mit Beispielprogrammen. Ein 
umfangreiches, vollständig 
kommentiertes Assemblerli- 
sting mit Cross-Referenzliste 
(Verweistabelle) umfaßt das 
komplette Betriebssystem mit 
dem 40/80-Zeichen-Editor 
sowie allen Kernel-Routinen. 
Best.-Nr. MT 90221 

ISBN 3-89090-221-9 

DM 49,-/sFr. 45,10/08 382,20 


Dr. P. Albrecht 
dBASE II für den 


Commodore 128 PC 
1985, 280 Seiten 


Das vorliegende Buch gibt 
nach einer kurzen Einführung 
in den Komplex »Datenban- 
ken« eine Anleitung für den 
praktischen Umgang mit 
dBASE Il. Schon nach Beherr- 
schung weniger Befehle ist 
der Anwender in der Lage, 
Dateien zu erstellen, mit Infor- 
mationen zu laden und auszu- 
werten. 

Best.-Nr. MT 838 

ISBN 3-89090-189-1 

DM 49,-/sFr. 45,10/0$ 382,20 


Dr. P. Albrecht 

Multiplan für den 
Commodore 128 PC 
September 1985, 226 Seiten 
Best.-Nr. MT 836 


ISBN 3-89090-187-5 
DM 49,-/sFr. 45,10/08 382,20 


Markt&Technik 


Unternehmensbereich Buchverlag 


Hans-Pinsel-Straße 2, 8013 Haar bei München 


G. Jürgensmeier 


WordStar 3.0 
mit MailMerge für den 


Commodore 128 PC 
1985, 435 Seiten 


WordStar ist ein umfangrei- 
ches und leistungsfähiges 
Textverarbeitungsprogramm 

Doch bedeutet dies nicht un- 
bedingt, daß es auch einfach 
zu bedienen ist. Hier setzt die- 
ses Buch an: Es macht in vor- 
bildicher Weise mit allen 
Möglichkeiten von WordStar 
und MailMerge vertraut und 
ist damit eine ideale Ergän- 
zung zum Handbuch 

Best.-Nr. MT 780 

ISBN 3-89090-181-6 

DM 49,-/sFr. 45,10/68 382,20 


K. Sch m 
Die Flo oppy ‚157011571 
2. Quartal 1986, ca. 400 S. 


Möglichkei 
Gerätes voll fen 
Sämtliche n und 


Disketten 
ausführlich erlä 
Best.-Nr. MT 90185 
ISBN 3-89090-185-9 

DM 52,-/sFr. 47,80/0S 405,60 


as ist beileibe keine indiskrete 

Frage nach Ihrem Privatleben. 

Pascal ist eine Programmier- 
sprache! Oder halten Sie’s lieber mit 
Basic? Jeder, der sich intensiv mit sei- 
nem Computer beschäftigt, lernt 
schnell die Grenzen des eingebauten 
Basic kennen. Leicht zu verstehen und 
einfach zu programmieren - und eine 
unübersehbare Zahl von Listings zum 
Abtippen in fast allen Computermagazi- 
nen, die es am Markt gibt, machen 
Basic zu einer Bastion auf dem Heim- 
computermarkt. Aber das muß nicht 
sein. Andere Programmiersprachen 
holen noch vielmehr aus Ihrem Compu- 
ter heraus. Bloß, wie soll man sich in 
dem Babylon der Computersprachen 
zurechtfinden? C, B, Pascal, Forth, 
Ada..., die Namen der verschiedenen 
Sprachen und Dialekte sind Legion. 

Welche Alternative muß man ergrei- 
fen, wenn man der eingebauten Com- 
putersprache überdrüssig ist? Um 
diese Frage zu beantworten, haben wir 
für Sie dieses Sonderheft zusammen- 
gestellt. 

Am beliebtesten - oder am meisten in 
der Schule und Universität verlangt - 
sind zur Zeit Pascal, C und Forth. Zu die- 
sen drei Sprachen finden Sie deshalb 
jeweils einen großen Einsteiger-Kurs. 
Lernen, das beschränkt sich aber nicht 
nur auf die Theorie. Deshalb sind alle 
Artikel mit vielen Beispiellistings zum 
Abtippen versehen. Denn nur, wer 
selbst ausprobiert, lernt die neue Spra- 
che verstehen und effektiv einzuset- 
zen. Vom Spiel bis zu Anwendungen, 
die das Leben eines Programmierers 
erleichtern, finden Sie alles, was das 
Herz begehrt. 

Einen Forth- und einen Pilot-Inter- 
preter zum Abtippen haben wir auch für 
Sie aufgetrieben. Denn nicht jeder will 
gleich teures Geld für eine Sprache 
ausgeben, mit der er sich dann viel- 
leicht doch nicht anzufreunden vermag. 
Also erst mal reinschnuppern und an- 


Anz a — 


fangen in einer neuen Sprache zu pro- 
grammieren. 

Damit Sie wissen, was es alles an 
Sprachen für Ihren Computer zu kaufen 
gibt, finden Sie auf über fünf Seiten alle 
Sprachen, die für Heimcomputer im 
Handel sind. Viele davon haben wir 
getestet und wir sagen Ihnen, mit wel- 
cher Sie Ihren Commodore 64, Schnei- 
der CPC, Atari ST oder irgendeinen 
anderen Computer am besten füttern. 

Anspruchsvolle Exoten - wie bei- 
spielsweise Prolog und Lisp - dürfen 
natürlich nicht fehlen in einem Heft, das 
sich »Programmiersprachen« auf die 
Fahne geschrieben hat. Über künstli- 
che Intelligenz, was immer das heißen 
mag, erfahren Sie also auch einiges. 

Programmiersprachen sind ein wei- 
tes Thema, das mehr als nur ein Heft fül- 
len würde. Deshalb sind wir auf Ihr Inter- 
esse gespannt. Schreiben Sie uns, ob 
Sie mehr über »Fremdsprachen« für 
Ihren Computers lesen wollen. Denn 
wie jede Ausgabe von Happy-Compu- 
ter orientieren sich auch unsere Son- 
derhefte am Interesse unserer Leser. 
Wir wollen schließlich über das berich- 
ten, was Sie lesen wollen - Sie, unser 
Leser. 

In diesem Zusammenhang möchte 
ich allen danken, die mir bei der Zusam- 
menstellung dieser Ausgabe geholfen 
haben. Besonders den Lesern unter 
Ihnen, die uns ihr Wissen zur Verfügung 
gestellt haben. Machen Sie bitte weiter 
so mit. 

Zu diesem Sonderheft haben wir für 
einige Computer jeweils eine »Program- 
miersprachen-Schnupper-Diskette« zu- 
sammengestellt. Auf ihnen finden Sie 
Programme, die die verschiedenen Fä- 
higkeiten der Sprachen offenbaren. Viel 
Spaß damit! Bei den Listings hingegen 
müssen Sie darauf achten, daß nicht 
jeder Compiler alles kann. Aber auspro- 
bieren hilft immer - und schult das Ver- 
ständnis für das Programmieren. 

Ihr Andreas Hagedorn 


Lieben 


Sie 
Pascal? 


Vor Jahren gab es nur eine Handvoll Programmiersprachen. 
Inzwischen steht man ratlos vor einer Vielzahl von Sprachen und 
ihren Dialekten. Unsere Marktübersicht gibt eine Hilfestellung 
bei der Auswahl. 156 


Ein Spitzenreiter in jeder Beziehung: Turbo-Pascal. Ein enorm 
niedriger Preis, die Vorzüge hoher Geschwindigkeit und dennoch 
hohen Komforts machen diese Pascal-Version unschlagbar. 19 


Wer kennt sie nicht: Pascal, die Sprache, die strukturierte Pro- 
grammierung populär machte. Was alles dazugehört, wie Pro- 
zeduren, Funktionen, Datentypen etc, kommt hier zur 
Sprache. 26 


C-Listing 
Gut sortiert ist halb gewonnen 


Rückkehr einer alten Dame 


Forth-Kurs 


Forth: Programmieren in der 
vierten Dimension 


UPN - Rechnen in der Umgekehrten 
Polnischen Notation 


Forth lernt dazu 
Forth, entscheiden Sie sich! 


Forth-Listing 

Forth-Interpreter zum Abtippen 
Trace-Befehl für FIG-Forth 

Turtle-Grafik 

x-pert, ein Mini-Experten-System in Forth 


Am Anfang war das Wort 


Pilot 
Pilot für Höhenflüge 


Pilot-Listing 


Tiny-Pilot zum Abtippen 


Modula 


Der Nachfolger: Modula 2 


Künstliche Intelligenz 


Und sie lernen doch denken 
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Marktübersicht 
Ada, Basic, Cobol - ein ABC 
für den Programmierer 
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C ist eine faszinierende Sprache, die immer mehr ins Gespräch 
kommt. Mit Recht, denn sie bietet sowohl die vorbildliche Struktu- 
rierung von Pascal, als auch hohe Geschwindigkeit durch optima- 
len Aufbau ihres Codes. 78 


I, 


Forth, die Sprache, die ursprünglich von der NASA entwickelt 
wurde, setzt sich zunehmend auch auf dem privaten Sektor 
durch. Leistungsfähig, jedoch mit einem ungewöhnlichen Kon- 
zept, ist sie recht einfach zu erlernen. 110 


Hier geht es um Prolog, Lisp und Logo, die sogenannten Program- 
miersprachen für Künstliche Intelligenz und die »5. Computer- 
Generation«. Diese Sprachsysteme unterstützen die Fähigkeit, 
von Programmen dazuzulernen. 14 


Wer den Computer zu seinem 
Hobby oder Beruf macht, steht in 
mehrerer Hinsicht vor einer 
schwierigen Wahl. Er muß sich 
zwischen einer Vielzahl von Peri- 
pherie, Betriebssystemen und 
Programmiersprachen entschei- 
den. Hier zeigen wir Ihnen die 
wichtigsten Programmierspra- 
chen, ihre Entwicklungsge- 
schichte und was sie können. 


ommunikation braucht Spra- 

che. Wenn sich zwei Men- 

schen miteinander unterhal- 
ten, benutzen sie dazu das gespro- 
chene Wort oder, sofern sie nicht die 
gleiche Sprache verstehen, Hände und 
Füße. Dieses Prinzip läßt sich nicht 
ohne weiteres auf die Verständigung 
zwischen Mensch und Computer 
anwenden. Kommunikation ist der 
Datenaustausch zwischen mehreren 
Parteien, die einander verstehen müs- 
sen, jedoch ist ein’Computer im Urzu- 
stand alles andere als verständig. Er 
besitztlediglich eine mehr oder weniger 
große Anzahl von Fähigkeiten, die er 
sehr schnell ausführen, aber nicht selb- 
ständig koordinieren kann. 


Programmiersprachen sind, im Ge- 
gensatz zur weitverbreiteten Meinung, 
kein Mittel, um sich mit dem Computer 
zu unterhalten. Sie dienen lediglich 
dazu, dem Computer über eine Kette 
von Befehlen mitzuteilen, was er Schritt 
für Schritt zu tun hat. Programmierung 
wurde lange Zeit unter dem Hauptau- 
genmerk der Mensch-Maschine-Kom- 
munikation betrachtet. Der wichtigste 
Aspekt lag darin, zu Problemlösungen 
unter möglichst effizienter Nutzung der 
Maschinenkapazität zu gelangen. Seit 
Computer in jüngster Zeit eine stärkere 
Verbreitung erfahren haben, rückte 
jedoch ein zweiter Gesichtspunkt 


immer mehr in den Vordergrund: Die 
Programme werden komplexer und der 
Wartungsaufwand (Korrektur oder 
Erweiterung eines Programms) immer 
größer. Dadurch, daß an vielen Pro- 
grammen große Teams über lange Zeit- 
räume hinweg arbeiten, geraten Pro- 
grammiersprachen auch mehr und 
mehr zum Kommunikationsmittel zwi- 
schen diesen Gruppen von Menschen. 
Das bedeutet, daß ein guter Program- 
mierer immer seine Programme auch 
für seine Nachwelt verständlich gestal- 
ten, und seine Kunstfertigkeit nicht mit 
der Anwendung von Programmiertricks 
unter Beweis stellen sollte Einem 
potentiellen Benutzer, der das Pro- 
gramm lesen und eventuelländern muß, 
sollte die Funktionsweise möglichst 
schon beim Lesen klar werden. 

Statt »Programmiersprache« wäre die 
Bezeichnung »Kommandosequenz« ei- 
gentlich richtiger. Was dem Computer 
befohlen wird, führt er geduldig und 
beliebig oft aus, einzige Bedingung ist 
ein fehlerfreies Programm. Einige Psy- 
chologen behaupten denn auch, die 
Beliebtheit von Computern sei darauf 
zurückzuführen, daß viele Menschen 
ihre diktatorischen Triebe beim Pro- 
grammieren ausleben! 

Wenden wir uns der Frage zu, die 
wohl jeden Computeranwender irgend- 
wann einmal bewegt, nämlich, was 
denn welche Programmiersprache 
wohl zu leisten vermag. 

Im Laufe der Computergeschichte, 
die seit den ersten Relaisrechnern Kon- 
rad Zuses nicht mehr als ein halbes 
Jahrhundert zählt, wurde eine Unzahl 
Programmiersprachen, Spracherweite- 
rungen und Dialekte entwickelt. Dabei 
standen immer zwei Überlegungen im 
Vordergrund. Zum einen mußten die 
Hardwarevoraussetzungen berück- 
sichtigt werden. Zum anderen orien- 
tieren sich die Programmentwickler an 
den zu bearbeitenden Problemstellun- 
gen und den Bedürfnissen der Anwen- 
der. Je nach Computertyp und Pro- 
blemstellung werden vom Programmie- 
rer verschiedene Programmstrukturen 
(Module, Blockkonzept, Verbundty- 


pen), spezialisierte Befehle und unter- 


schiedliche Datentypen (Integer, Real, 
Complex, String, etc.) benötigt. Auf die- 
ser Grundlage entwickelten sich neben 
den bekannten Sprachen eine unüber- 
schaubare Anzahl Exoten, die meistens 
nur in einzelnen Universitäten einge- 
setzt wurden. 


Vielfalt — Freud 
oder Leid? 


An kaum einem Punkt scheiden sich 
die Geister in der Computerszene so 
stark wie in der Auswahl der Beurteilung 
der Programmiersprachen. Wer den 
Heimcomputer zu seinen Hobbies 
zählt, lerntin aller Regel zunächst fleißig 
Basic. Schließlich gehört ja der Basic- 
Interpreter zum Lieferumfang. Im Laufe 
der Zeit werden die eigenen Pro- 
gramme immer länger und unübersicht- 
licher, die einzelnen Programmteile 
sind durch ein unentwirrbares Geflecht 
von GOTO-Anweisungen miteinander 
verknotet (böse Zungen sprechen des- 
halb von »Spaghetti-Code«). 

Mit dem wachsenden Bedürfnis nach 
Strukturierung, die in Basic nur jemand 
mit viel Selbstdisziplin erreicht, und 
nach Geschwindigkeit, die für Basic ein 
Fremdwort ist, sieht man sich nach Aus- 
wegen um. Dabei fühlt sich die eine 
Gruppe wie magisch von dem Begriff 
Assembler angezogen und begibt sich 
auf die unterste Sprachebene, um 
fortan in mühseliger Kleinarbeit Byte für 
Byte zu programmieren. Hiermit wird 
zwar ein Höchstmaß an Geschwindig- 
keit möglich, aber die Übersichtlichkeit 
kommt nach wie vor zu kurz. Die zweite 
Gruppe der Programmier-Gemeinde 
wendet sich deshalb modernen Hoch- 
sprachen zu, wie Pascal, Forth, Modula, 
Comal, Ada, C und so weiter. Diese 
Sprachen zwingen den Programmierer 
dazu, seine Programme modular (dies 
bedeutet, einzelne Aufgaben werden in 
»Paketen« oder »Modulen« zusammen- 
gefaßt) zu gestalten. Durch die so 
erreichte Übersichtlichkeit lassen sich 
Programme später von jedermann, 
Sprachkenntnisse vorausgesetzt, 
nachvollziehen und ändern. Zudem 
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sind einige dieser Sprachen sehr 
assemblernah, wie zum Beispiel Forth, 
womit auch Geschwindigkeit kein Pro- 
blem mehr ist. Moderne Programmier- 
sprachen unterstützen also Programm- 
strukturen und gehen ebenso mit 
Daten- und Kontrollstrukturen problem- 
gerecht um. 

Dennoch werden im professionellen 
Bereich (Universitäten, Verwaltung) 
»klassische« Sprachen bevorzugt, wie 
PL/1, Cobol und Fortran. Es sprechen 
auch gute Gründe dafür: So sind die 
neueren Programmiersprachen oftmals 
auf der vorhandenen Hardware noch 
nicht verfügbar, oder sie vertragen sich 
mit bereits vorhandenen Softwarekom- 
ponenten nicht. Ein anderer Faktor sind 
die Vorkenntnisse des Wartungsperso- 
nals und und und .... Jeder Informatik- 
student, jeder Praktiker kann diese 


blem mitteilt. Wegen des hohen Spei- 
cherbedarfs sind KlI-Programme auf 
Microcomputern nur sehr einge- 
schränkt einsatzfähig. Dies wird sich 
jedoch bald ändern. Man darf gespannt 
sein, wie sich Kl auf den 16-Bit- 
Computern entwickeln wird, die janicht 
nur in punkto Schnelligkeit, sondern 
auch im Speicherangebot einen ganz 
neuen Standard setzen. Der Künstli- 
chen Intelligenz ist in diesem Sonder- 
heft ein eigener Beitrag gewidmet. 

Fassen wir zusammen: Sinnvoll las- 
sen sich die Programmiersprachen in 
vier Gruppen unterteilen: 


1. Assemblersprachen: Sie bieten 
den Vorteil, daß sie die Möglichkeiten 
der Hardware optimal ausnutzen. 
Assembler versteht jeder Prozessor 
unmittelbar. Jede höhere Programmier- 


Reihe beliebig fortsetzen. Und schließ- 
lich ist gute Software immer noch der 
Triumph des Programmierers, nicht der 
der Programmiersprache. 

Seit das Betriebssystem CP/M auf 
Computern wie dem Commodore 128, 
Schneider CPC, oder dem Atari ST 
einen neuen Frühling erlebt, werden 
diese Klassiker neuerdings auch auf 
Heimcomputern interessant. Sehr 
wahrscheinlich wird sich ein breiter 
Anwenderkreis hierfür finden. Welcher 
Programmierer begrüßt es nicht, wenn 
er seine Produkte teilweise in der 
»guten Stube« austesten kann? 

Eine Sonderstellung unter den Pro- 
grammiersprachen nehmen die Spra- 
chen für »künstliche Intelligenz« (Kl) 
ein. Deren bekannteste Vertreter hei- 
ßen Lisp und Prolog. KlI-Sprachen 
bauen auf einem grundlegend neuen 
Konzept auf, bei dem der Programmie- 
rer dem Computer im Dialog sein Pro- 


sprache muß beim Programmablauf 
erst in Assemblercode übersetzt wer- 
den und ist deshalb weniger universell. 
Gegen Assembler sprechen die müh- 
selige Programmierung, die Gebunden- 
heit an Prozessor und Hardware sowie 
die schwierige Wartung. 

2. Klassische Hochsprachen: Sie 
sind zur Zeit am weitesten verbreitet, 
aber genügen wegen ihrer altertümli- 
chen Konzeption den Anforderungen 
moderner Programmierung nicht mehr. 

3.Moderne Hochsprachen: Sie kön- 
nensich gegen die »Alteingesessenen« 
nur langsam durchsetzen. Sie bieten 
Strukturierungshilfen, ausgeprägte 


Möglichkeiten der Datenbeschreibung, 
und unterstützen die Selbstdokumenta- 
tion des Programmtextes durch eine 
angemessene Verbalisierung. 

4. Kl-Sprachen sind heutzutage 
noch Gegenstand intensiver Forschun- 
gen und stellen eine völlig neue und 


andersartige Klasse von Programmier- 
sprachen dar. In diesem Beitrag wollen 
wir uns deshalb nicht weiter mit ihnen 
beschäftigen. 

Wie Sie gesehen haben, ist der Spra- 
chenwald immer noch sehr dicht, auch 
wenn man sich auf die Auswahl der 
wichtigsten Programmiersprachen 
beschränkt. Ein bedeutendes Auswahl- 
kriterium sind die qualitativen Merk- 
male. Bevor wir diese besprechen, 
noch zu einigen zentralen Begriffen: 

Algorithmus - Jedem Programm lie- 
gen ein oder mehrere Lösungsverfah- 
ren zugrunde, oft auch als Algorithmus 
bezeichnet. Ein solcher Algorithmus ist 
definiert als eindeutige und vollständige 
Vorschrift zur Lösung einer Problem- 
klasse mit einer Abfolge von Schritten, 
die in einem endlichen Zeitraum ausge- 
führt werden. 

Daten heißen dabei die Objekte, die 
der Algorithmus bearbeitet. 

Programm nennt man folgerichtig die 
maschinengerechte Aufbereitung der 
Daten und des Algorithmus. Diese Auf- 
bereitung geschieht mit Hilfe einer 
künstlichen Sprache, eben der Pro- 
grammiersprache. Diese setzt sich 
aus einer Menge von Zeichen zusam- 
men, die ihrerseits nach bestimmten 
Regeln zusammengesetzt werden kön- 
nen. Die somit geschaffenen Sprach- 
elemente werden von der Maschine 
unmittelbar (als Maschinensprache) 
oder unter Zuhilfenahme von Überset- 
zungsprogrammen (als Hochsprache) 
»verstanden«. Der Übersetzer stellt 
nichts weiter dar, als einen speziellen 
Algorithmus, der in der Lage ist, alle 
Befehle einer Hochsprache in den ent- 
sprechenden Assemblercode zu trans- 
formieren. Er ist grob vergleichbar mit 
einer Bibliothek von kleinen Assembler- 
Unterprogrammen, wobei jedem Befehl 
der Hochsprache eines dieser Unter- 
programme zugeordnet ist. 


Compiler und 
Interpreter 


Übersetzungsprogramme gliedern 
sich in zwei Typen, die die gleiche Auf- 
gabe auf unterschiedliche Weise erfül- 
len. Als erstes sind die Compiler zu 
nennen. Sie tauchten auch in der 
geschichtlichen Entwicklung zuerst 
auf. Der Compiler übersetzt den Pro- 
grammtext (Quellcode) in einem oder 
mehreren Durchgängen (Passes) kom- 
plett in Assemblercode (Objektcode). 
Der Compiler selbst wird daher beim 
Programmlauf nicht mehr benötigt. 
Natürlich benutzt man für unterschiedli- 
che Computer, mit verschiedener Hard- 
ware und Maschinensprache auch 
unterschiedliche Compiler. 


fr; 


Der zweite im Bund der Dolmetscher 
nennt sich Interpreter. Er ist der fleißi- 
gere von beiden. Zunächst muß der 
Quellcode direkt im Arbeitsspeicher 
des Computers abgelegt werden. 
Sodann beginnt das Interpretieren. Das 
heißt nichts weniger, als daß der Inter- 
preter während des Programmlaufs 
Befehl für Befehl holen muß. Natürlich 
ist diese Vorgehensweise in höchstem 
Maße unökonomisch und langsam. 
Während ein Compiler die ersten drei 
der genannten vier Arbeiten nur genau 
einmal ausführen muß, beschäftigen sie 
den Interpreter bei jeder Programmwie- 
derholung aufs neue. 

Zu Beginn des Computerzeitalters, 
als Rechenzeit noch sehr teuer war, 
wurden daher ausschließlich Compiler 
entwickelt. Interpreter konnten sich 
erst mit höheren Prozessorleistungen 
durchsetzen. Sie werden auch heute 
noch in Profikreisen wegen ihres 
gemächlichen Arbeitstempos ver- 
schmäht. 


Die Qualität 
von Programmier- 
sprachen 


Um beurteilen zu können, welche 
Eigenschaften gute Programmierspra- 
chen charakterisieren, wenden wir uns 
zunächst der Frage zu, welche Anfor- 
derungen an ein hochwertiges Pro- 
gramm zu stellen sind. 

Die Forderung nach Fehlerfreiheit 
erscheint auf den ersten Blick banal. 
Die Erfahrung zeigt nämlich, daß 
100%ig korrekte Programmsysteme ab 
einem gewissen Umfang kaum noch 
möglich sind. Hat ein Programm eine 
gewisse Komplexität erreicht, istes fast 
unmöglich, seine Korrektheit zu bewei- 
sen, also Testdurchläufe zu finden, die 
tatsächlich alle Eventualitäten berück- 
sichtigen. Als Maß für die Korrektheit 
eines Programmes wird deshalb häufig 
von der Zuverlässigkeit gesprochen. 
Diese gibt die Wahrscheinlichkeit an, 
mit der ein Programm für eine Zahl von 
Anwendungsfällen in einer bestimmten 
Zeitspanne fehlerfrei arbeitet. Gerade 
die jüngste Vergangenheit hat hierfür im 
Bereich der Mikrocomputer einige 
negative Beispiele geliefert. So konn- 
ten Fehler in einigen Betriebssystemen 
oftmals erst nach der Auslieferung der 
neuen Geräte beseitigt werden. 

Verständlichkeit deckt sich mit Forde- 
rungen nach Lesbarkeit, Überschau- 
barkeit und Selbstdokumentation. Pro- 
gramme sollten sich, sobald sie eine 
gewisse Länge überschreiten, in funk- 
tionelle Einheiten gliedern. Andernfalls 
wird der Programmierer oft, noch wäh- 


rend er an ein und demselben Pro- 
gramm arbeitet, an der selbst produ- 
zierten Unordnung scheitern. Man dif- 
ferenziert unter dem Aspekt.der Ver- 
ständlichkeit zwischen der statischen 
und der dynamischen Programmstruk- 
tur. Die statische Strukturgestaltung 
dient dem Ziel, ein übersichtliches Lay- 
out des Programmtextes zu gestalten. 
Hiermit wird der menschlichen Wahr- 
nehmung Rechnung getragen, die sehr 
stark auf optischen Wahrnehmungen 
beruht. Ergänzend trägt die dynami- 
sche Strukturierung dazu bei, daß Pro- 
grammabläufe unmittelbar aus dem 
Quelltext ersichtlich werden. 

Ein Faktor der an diese Zusammen- 
hänge anknüpft, ist die Änderbarkeit 
von Programmen. Wartungsfreundlich- 
keit bedeutet einerseits, daß Pro- 
gramme leicht an modifizierte Aufga- 
benstellungen angepaßt werden kön- 
nen. Andererseits spielt die Portabilität 
eine Rolle, wenn ein Programm zum Bei- 
spiel in einer neuen Softwareumge- 
bung lauffähig gemacht werden soll. 

Universalität sollte es einem guten 
Programm ebenfalls ermöglichen, ähn- 
liche Aufgabenstellungen und Abwand- 
lungen zu lösen. 

Im Zusammenhang mit der Benutzer- 
freundlichkeit sollten Programme einen 
Dialog mit dem Benutzer ermöglichen 
und Eingabefehler abfangen, ohne fal- 
sche Ergebnisse oder gar Systemab- 
stürze zu liefern. 

Effizienz hat im Laufe der Entwick- 
lung stark an Bedeutung verloren. Zu 
Zeiten, da Speicherplatz noch Mangel- 
ware war, galten die kürzesten Pro- 
gramme als die besten. Das ging natür- 
lich zu Lasten der Übersichtlichkeit. 
Effizienzstreben wird heute daher nur 
noch mit Skepsis betrachtet. 

Die hier genannten Qualitätsmerk- 
male stehen offensichtlich in positiver 
und negativer Wechselwirkung zuein- 
ander. So geht Übersichtlichkeit mei- 
stens zu Lasten der Effizienz, verbes- 
sert dagegen aber die Änderbarkeit. 

Beginnen wir jetzt damit, die Anforde- 
rungen an eine ideale Programmier- 
sprache zu formulieren. Die Qualität 
einer Computersprache läßt sich 
danach beurteilen, inwieweit sie die 
Entwicklung von Programmen unter- 
stützt, die den uns bekannten Anforde- 
rungen entsprechen. Die folgenden 
skizzierten Merkmale müssen im engen 
Zusammenhang miteinander betrach- 
tet werden. 

Beginnen wir mit einem Punkt, der 
besonders den Einsteiger interessie- 
ren wird: 

Die Erlernbarkeit einer Sprache hängt 
wesentlich von deren Struktur und 
Umfang ab. Sie ist sehr viel einprägsa- 
mer, wenn die Zahl der Schlüsselwörter 
gering und das Sprachkonzept durch- 


gängig ist. Ebenso gewährleistet eine 
einfache Benutzung, wenn der Pro- 
grammierer sein Problem bequem mit 
einer breiten Palette von Ausdrucks- 
möglichkeiten lösen kann. 

Die Einheitlichkeit ist ein ebenso 
wichtiger wie unscharfer Begriff. Er soll 
im großen und ganzen bedeuten, daß 
für eine bestimmte Leistung möglichst 
nur genau ein Sprachmittel zur Verfü- 
gung steht. 


Kriterien für eine 
ideale Sprache 


Kompaktheit steht mit Einfachheit in 
Einklang. Hierbei ist nicht von der 
»Würze der Kürze« die Rede, sondern 
vielmehr von der Mächtigkeit der 
Sprachkonzepte. Der Bauplan der Spra- 
che muß eine geringe Anzahl verschie- 
dener Grundkonzeptionen aufweisen, 
wie mathematische Operationen, Ein- 
und Ausgabe, Datenstrukturierung. 
Andererseits soll Kompaktheit ein 
gewisses Maß an Redundanz (= alles 
was man in der gleichen Sprache auf 
andere Weise auch darstellen kann) an 
der richtigen Stelle nicht verhindern. 
Dies fördert die Verständlichkeit und 
Zuverlässigkeit. Beispielsweise sind 
Datentypen im Grunde genommen 
redundant, doch wer möchte sich 
schon mit einer Sprache herumschla- 
gen, die ausschließlich den Datentyp 
»Zeichen« kennt? 

Die Sprache Basic wird von vielen als 
katastrophal eingestuft. Das hat einen 
guten Grund: Die Forderung nach Loka- 
lität wird von Basic so gut wie gar nicht 
unterstützt. Mit diesem Begriff ist 
gemeint, daß die Teile einer bearbeite- 
ten Aufgabe, die logisch zusammenge- 
hören, auch im Programmtext in physi- 
scher Nachbarschaft stehen sollten. 
Die berühmt-berüchtigten Sprungbe- 
fehle bewirken jedoch das genaue 
Gegenteil. 

Ein ganz anderes Kriterium ist die 
Sicherheit der Programmiersprache. 
Dazu zählt das Unterstützen der Fehler- 
freiheit eines Programmes durch 
Sprachelemente. »On Error Goto« ist 
ein solcher weitverbreiteter Befehl. Des 
weiteren sind Sprachelemente zu nen- 
nen, die die Testphase des Programms 
fördern. 

Der »Wildwuchs« der Implementie- 
rungen (= Anpassungen eines 
bestimmten Computers) bei Program- 
miersprachen, insbesondere bei den 
älteren, ist hinlänglich bekannt. Dia- 
lekte, Erweiterungen, aber auch Ein- 
schränkungen beeinträchtigen die Por- 
tabilität von Programmen im besonde- 
ren Maße. Mit der Standardisierung 
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Programmiersprachen: 


Wer sich näher mit Programmiersprachen beschäftigen will, für den haben wir 
eine Schnupper-Diskette zusammengestellt. Auf ihr finden Sie die für Ihren Com- 
puter interessantesten Programme dieser Ausgabe. 

Außerdem haben wir unser Archiv durchstöbert. Routinen aus früheren Ausga- 
ben von Happy-Computer, 64er und Computer Persönlich, die in Pascal, C oder 


Forth geschrieben sind, haben wir gleich mit auf die Diskette geschrieben. Keine 
Angst, daß Sie diese Programme ohne Beschreibung nicht gebrauchen kön- 
nen. In der Datei »READ.ME« finden Sie die notwendige Beschreibung. Die 
Schnupper-Diskette gibt es für die Schneider-Computer, den Commodore 64 
und den Commodore 128. Im 64er-Modus des C 128 können sie natürlich auch 
die 64er-Diskette verwenden. 


Diskette für Schneider-Computer, Best.-Nr. LH 8685 SD, DM 34,90* (sFr. 29,50/6S 349,-*) 
Diskette für C 64, Best.-Nr. LH 8655 CD, DM 29,90* (sFr. 24,90/6S 299,) 
Diskette für C 128, Best.-Nr. LH 86S5 8D, DM 29,90* (sFr. 24,90/6S 299,*) 


Programme aus früheren Ausgaben: 


Happy-Computer, Ausgabe 5/86 
Commodore 64, Commodore 128 
Radish-Two. 

Ein Kletter- und Sammelspiel für den C 64. 
Ultraboot. 

Ergänzung zu »Ultraload Plus«. 104 zusätzliche 
Blöcke auf der Diskette. 

Simple Sound. 

Eine kleine Soundbibliothek bietet Klänge für 
jede Gelegenheit. 

Aus Ausgabe 4/86. 


Quadrophenia. 

Spiel des Monats für den Commodore 64. 
Kurven. 

Mathematische Kurven auf dem C 128 schnell 
programmiert. (Läuft nicht im C64-Modus!) 
Kalender. 

Ein Kalender für die Jahre bis 2000. 
Auto-Boot 128. 

Das Programm nutzt die Fähigkeit des C 128, 
CP/M-Programme automatisch zu booten 
(laden). (Nicht für C64). 

Widerstände. 

Eine Utility, die Ihnen hilft, Widerstandswerte 
aus Farbskalen in numerische Werte umzurech- 
nen. Aus Ausgabe 5/86. 


Diskette für den C 64/C 128 
Bestell-Nr. LH 8605 CD 
DM 29,90*/sFr. 24,90/6S 299, 


Happy-Computer, Ausgabe 4/86 

Schneider CPC 

D-Mon. 

Daten auf Diskette Byte für Byte lesen und än- 
dern. Fehlerhafte Dateienkorrigierenundretten. 


GOTO XY (nur CPC 464). 

Eine mächtige RSX-Befehlserweiterung, die 
erlaubt, das Ziel von GOTO-GOSUB-Befehlen 
mit Hilfe einer Variablen zu bestimmen. 


Accept. 

Ein komfortabler Ersatz für den normalen 
INPUT-Befehl, mit dem sich jetzt die maximale 
Eingabe-Länge begrenzen läßt. 


Turbo-Screen (nur CPC 464). 

Mit dieser RSX-Erweiterung machen Sie der 
Bildschirmausgabe im Modus 2 Beine. 

Aus Ausgabe 2/86. 


Explora. 
Mit diesem Prüfsummen-Generator entfällt die 
lästige und zeitaufwendige Fehlersuche. 


Stack-Manipulation (nur CPC 464). 
Basic-Programmierung mit vier RSX-Befehlen. 
Aus Ausgabe 3/86. 


Tool-Basic. 
44 neue RSX-Befehle für Grafik-, Sprite-, Dis- 
ketten- und Kassetten-Programmierung. 


Achtes Bit. 

Endlich Abhilfe für den Umstand, daß der 
Schneider CPC über die Drucker-Schnittstelle 
nur sieben Datenbits ausgibt. 


Mord im Computer. 
Das DFÜ-Spiel mit Adventure-Charakter. 
Aus Ausgabe 4/86. 


Best.-Nr. LH 8604 SK (Kassette) 
DM 29,90* sFr. 24,90/6S 299, 
Best.-Nr. LH 8604 SD (Diskette) 
DM 29,90* sFr. 24,90/68 299, 


Happy-Computer, Ausgabe 3/86 
Commodore 64/Commodore 128 
Copter-Fight, Husky-Basic, Unser Sonnensy- 
stem, Wahlautomat, Softpaint 

Bestell-Nr. LH 8603 CD 

DM 29,90*/sFr. 24,90/6S 299, 


Happy-Computer, Ausgabe 2/86 
Commodore 64 

Oval Pattern, Börse, Poster Hardcopy, 
Kassetten-Designer, Super-Sprite, Transbit. 
Alle 6 Programme auf Diskette für den 
Commodore 64/128. 

Bestell-Nr. LH 8602 CD 

DM 29,90*/sFr. 24,90/8S 299,* 


Happy-Computer, Ausgabe 1/86 
Commodore 64/Commodore 128 ' 
Taxi. Aus Ausgabe 1/86. 

Musik und Farbe. Aus Ausgabe 12/85. 
SDB-Sprite Mover. Aus Ausgabe 1/86. 
ES-AE. Aus Ausgabe 1/86. 

Ulitraload. Aus Ausgabe 1/86. 

Error 64. Aus Ausgabe 1/86. 

Scroll 64. Aus Ausgabe 1/86. 
Schatzsuche. Aus Ausgabe 12/885. 
SLAD. Aus Ausgabe 12/84. 

Alle 9 Programme auf Diskette für den 
Commodore 64/128 

Bestell-Nr. LH 8601 CD 

DM 29,90* sFr. 24,901ö6S 299,+ 


Happy-Computer, Ausgabe 12/85 
Atari 800XL/130XE/800 
Bestell-Nr. LH 8512 B 

DM 29,90* sFr. 24,9016S 299,* 


Happy-Computer, Ausgabe 12/85 
Schneider CPC 

Diskette für den Schneider CPC. 
Bestell-Nr. LH 8512 G (Kassette) 
DM 29,90*/sFr. 24,90/öS 299,* 
Bestell-Nr. LH 8512 D (Diskette) 
DM 34,90* sFr. 29,50/6S 349, 


Happy-Computer, Ausgabe 11/85 
Commodore 64 

Bestell-Nr. LH 8511 A 

DM 29,90* sFr. 24,90/6S 299,+ 


Happy-Computer, Ausgabe 10/85 
Sinclair Spectrum 

Bestell-Nr. LH 8510 D 

DM 19,90* /sFr. 17,-168 199, 
Atari 800XL 

Bestell-Nr. LH 8510 B 

DM 29,90* sFr. 24,90/6S 299,* 


Happy-Computer, Ausgabe 9/85 
Commodore 64 

Bestell-Nr. LH 8509 A (Diskette) 
DM 29,90* sFr. 24,90/6S 299,+ 


Happy-Computer, Ausgabe 8/85 
Schneider CPC 464 

Bestell-Nr. LH 8508 G (Kassette) 
DM 29,90* sFr. 24,90/6S 299,* 


Happy-Computer, Ausgabe 7/85 
Commodore 64 

Bestell-Nr. LH 8507 A (Diskette) 
DM 29,90* sFr. 24,90/6S 299, 


Happy-Computer, Ausgabe 6/85 
Commodore 64 

Bestell-Nr. LH 8506 A (Diskette) 
DM 29,90* sFr. 24,90/6S 299, 


Happy-Computer, Ausgabe 5/85 
Schneider CPC 464 

Bestell-Nr. LH 8505 G (Kassette) 
DM 29,90* sFr. 24,90/6S 299,* 


Happy-Computer, Ausgabe 4/85 
Commodore 64 

Bestell-Nr. LH 8504 A (Diskette) 
DM 29,90* /sFr. 24,90/6S 299, 


Happy-Computer, Ausgabe 3/85 
Schneider CPC 464° 

Bestell-Nr. LH 8503 G (Kassette) 
DM 29,90* /sFr. 24,90/6S 299, 


Happy-Sonderhefte 


Sonderheft 4/86: Schneider 
Bestell-Nr. LH 8654 K (Kassette) 
DM 29,90* sFr. 24,90/6S 299, 
Bestell-Nr. LH 8654 D (Diskette) 
DM 34,90* sFr. 29,50/6S 349,+ 


Sonderheft 3/86: 68000 
Bestell-Nr. LH 8653 D (Diskette) 
DM 29,90* sFr. 24,90/6S 299,* 


Sonderheft 2/86: ATARI 
Bestell-Nr. LH 86$2 D (2 Disketten) 
DM 34,90* sFr. 29,50/6S 349, 


Sonderheft 1/86: Schneider 
Bestell-Nr. LH 86$1 D (Diskette) 
DM 34,90* sFr. 29,50/6S 349, 
Bestell-Nr. LH 8651 K (Kassette) 
DM 29,90* sFr. 24,90/6S 299, 


Sonderheft 2/85: Schneider 
Bestell-Nr. LH 8552 D (3”-Diskette) 
DM 34,90* IsFr. 29,50/6S 349,4 
Bestell-Nr. LH 8552 V (5's”-Diskette) 
DM 34,90* IsFr. 29,50/16S 349,+ 
Bestell-Nr. LH 8552 K (Kassette) 

DM 29,90* /sFr. 24,90/68 299, 


Sonderheft 1/85: Spectrum 
Bestell-Nr. LH 8581 D (Kassette) 
DM 19,90* IsFr. 17,-16$ 199,+ 


* inkl. MwSt. Unverbindliche Preisempfehlung 


Bitte verwenden Sie für Ihre Bestellung und Überweisung die eingeheftete Postgiro-Zahlkarte, 
oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung. 


Sie erleichtern uns die Auftragsabwicklung, und dafür berechnen wir Ihnen keine Versandkosten. 


befassen sich daher nationale und 
internationale Institute. Die wichtigsten 
sind das Deutsche Institut für Normung 
(DIN), das American National Standards 
Institute (ANSI) und die International 
Organization for Standardization (ISO). 
Die Benutzer akzeptieren allerdings die 
Standards unterschiedlich. So sind 
Standards von Basic nahezu unbe- 
kannt, während sie sich bei Sprachen 
wie Pascal oder Fortran zunehmend 
durchsetzen. 

Was für die Effizienz bei Programmen 
gesagt wurde, verkehrt sich bei den 
Sprachen in das genaue Gegenteil: Für 
den Übersetzer ist sie von großer Wich- 
tigkeit. Zum einen sollte der Überset- 
zungsvorgang effizient sein, da bei der 
Fertigstellung eines Programmes die 
Zahl der Testläufe meistens sehr hoch 
ist. Der wichtigere Grund aber ist, daß 
das erzeugte Maschinenprogramm im 
Hinblick auf Rechenzeit und Speicher- 
bedarf optimiert werden sollte. Soge- 
nannte »Optimierende Übersetzer« 
sind teilweise in der Lage, das erzeugte 
Maschinenprogramm effizienter zu 
gestalten, als dies der Benutzer durch 
Programmiertricks erreichen kann. 


Von Zuse bis Ada 


Wir besitzen nun ein gutes Hand- 
werkszeug, um Programmiersprachen 
nach den wichtigsten Gesichtspunkten 
theoretisch zu beurteilen. Fassen wir 
zusammen: Die entscheidenden Anfor- 
derungen an eine Sprache heißen 
Strukturierungshilfen, Selbstdokumen- 
tation, Datenbeschreibung, Benutzer- 
freundlichkeit und Zuverlässigkeit. 
Doch was nützt all die graue Theorie, 
wenn wir die Sprachen nicht kennen? 
Im folgenden werden daher die wichtig- 
sten unter den bisher behandelten 
Aspekten und im Rahmen ihrer 
geschichtlichen Entwicklung vorge- 
stellt. 

Die Entstehung der Programmier- 
sprachen orientiert sich immer auch an 
den Voraussetzungen der Hardware. 
Dies gilt insbesondere auch für die 
Gründerjahre. 

Als geistiger Urvater der Rechen- 
maschinen mit Programmsteuerung 
darf der Engländer Charles Babbage 
gelten. Er begann 1833 mit der Kon- 
struktion digitaler Rechenautomaten. 
Er legte seinen Maschinen aus Zahnrä- 
dern, Kurbeln und Hebeln zwei wichtige 
Erfindungen zugrunde, nämlich die 
Lochkartensteuerung und das Prinzip 
eines dekadischen Zählrades mit auto- 
matischem Zehnerübertrag. Babbages 
Projekte waren aber wegen fertigungs- 
technischer Schwierigkeiten nur in der 
Theorie funktionsfähig. Erst Elektro- 
mechanik und später die Elektronik 


machten die Rechenautomaten lang- 
sam zu Computern. 

Der erste Rechenautomat der Welt 
mit Programmsteuerung wurde 1941 
von Konrad Zuse in Betrieb genommen. 
Die Zuse Z3 war ein Relaisrechner, der 
bereits mit Dualzahlen arbeitete und zur 
Darstellung Gleitkommazahlen 
benutzte. Mit der Z3 waren neben den 
vier Grundrechenarten auch das Zie- 
hen von Quadratwurzeln und das 
Potenzieren möglich. Ein Nachbau des 
historischen Modells, das im Krieg zer- 
stört wurde, steht im Deutschen 
Museum in München. Der erste pro- 
grammierbare Rechner Amerikas ent- 
stand 1944. Er wurde von dem Mathe- 
matiker Howard H. Aiken mit Unterstüt- 
zung von IBM entwickelt und auf den 
Namen »Mark I« getauft. Er war jedoch 
ein Ungetüm von 16 m Länge und 35 
Tonnen Gewicht und zudem langsamer 
als die früher entwickelte Z3. 

Der Phase der Relaisrechner setzte 
der Einsatz von Elektronenröhren rasch 
ein Ende. Der bekannte ENIAC war die 
erste vollelektronische Rechenanlage 
der Welt und wurde 1945 in den USA 
fertiggestellt. Er erreichte gegenüber 
den Relaisrechnern bereits die 
2000fache Rechengeschwindigkeit. 

Während die Lochkarte nur eine 
starre Programmsteuerung ermög- 
lichte (keine Schleifen, keine logischen 
Entscheidungen) begann man bald, 
sich über die flexible Speicherprogram- 
mierung Gedanken zu machen. Als 
erstem gelang es dem Amerikaner John 
Neumann das genannte Problem auf 
einem Rechner zu verwirklichen. Der 
bereits 1944 von Neumann konzipierte 
Computer (EDVAC) erfüllte folgende 
Forderungen: Das Programm mußte, 
wie auch die zu verarbeitenden Daten, 
in der Maschine gespeichert werden. 
Außerdem benötigte man bedingte 
Befehle wie Vorwärts- und Rückwärts- 
verzweigungen. Jeden Befehl konnte 
zudem die Maschine selbst, wie jeden 
anderen Operanden ändern. 

Befehle bestanden aus einem 
Operations- und einem Adreßteil. Im 
Operationstel wird eine Angabe 
gemacht was zu tun ist (zum Beispiel 
Ausführung einer Multiplikation), der 
Adreßteil zeigt an, wo sich die zu verar- 
beitenden Daten befinden und wohin 
sie anschließend zu übertragen sind. 
Hier ist also die Rede von den ersten 
Assemblersprachen, an deren Grund- 
prinzipien sich bis heute nicht geändert 
hat. 

Der Schritt von der starren Pro- 
grammsteuerung zum flexiblen Pro- 
gramm leitete die Wende vom Rechner 
zur Datenverarbeitung ein. Die Röhren- 
computer der ersten Generation 


erreichten mit dem SSEC (Selective 
Sequenz Electronic Calculator) Ende 


der vierziger Jahre einen Höhepunkt. 
Dieser besaß nicht weniger als 12000 
Elektronenröhren und etwa 21500 
Relais und wurde von 36 Lochstreifen- 
lesern gesteuert. Er führte die Berech- 
nungen der Mondbahn durch, die 20 
Jahre später im Apollo-Raumfahrtpro- 
gramm verwertet wurden. Mit dem Ein- 
zug der Transistortechnik und später 
mit den. integrierten Schaltkreisen 
wuchsen fortan Rechnerleistung und 
Speicherkapazität immer schneller. 
Dies war die Voraussetzung für die 
Schaffung der höheren Programmier- 
sprachen. 


Die frühen Jahre 
= Fortran 


Fortran ist die älteste der hier behan- 
delten Hochsprachen und setzt einen 
Meilenstein in der Geschichte. Anfang 
der fünfziger Jahre wuchs die Zahl der 
Computer rasch. An Serienfertigung 
war noch nicht zu denken und es war 
jedes Gerät ein Einzelstück mit eigener 
Hardware und eigenem Assembler. So 
wurde bald der Wunsch nach einer Pro- 
grammiersprache laut, die übertragbar 
und einfach zu programmieren sein 
sollte. 1952 wurde der Grundstein für 
Fortran gelegt, zu einer Zeit, da die Pro- 
grammierung nur wenigen Spezialisten 
und ausschließlich in Assembler mög- 
lich war. John W. Backus war einer der 
Federführenden, dem die Programmier- 
gemeinde Fortran zu verdanken hat. 

Der Hauptgrund für die Entwicklung 
war die Schwerfälligkeit der Assembler- 
programmierung. 75 Prozent der 
Kosten eines Rechenzentrums verur- 
sachte damals die Fehlersuche. Ver- 
ständlichkeit war daher ein wesentli- 
ches Entwurfsziel. Dadurch, daß die 
teuere Hardware optimal ausgenutzt 
werden mußte, waren die Rahmenbe- 
dingungen für Fortran bereits vorge- 
zeichnet. Vorrangig wurden Sprachele- 
mente implementiert, die der Speicher- 
und Laufzeiteffizienz nachkamen. 
Einige dieser Konzepte werden noch 
heute als sehr nachteilig angesehen - 
sind aber immer noch in Fortran enthal- 
ten. 

1955 erschien ein Programmier- 
handbuch, und zwei Jahre später 
wurde die erste Implementierung auf 
einer IBM 704 freigegeben. Damit 
stand Fortran erstmals einer breiten 
Zahl von Programmierern zur Verfü- 
gung. 

Der Name steht für FORmula TRANSs- 
lating system (Formelübersetzer). Und 
genau dort liegt auch der Anwendungs- 
schwerpunkt der Sprache. Rechneri- 
sche Probleme lassen sich in ihr leicht 
und natürlich ausdrücken. Damit wird 
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der Erlernbarkeit der Sprache Rech- 
nung getragen. Im ingenieurwissen- 
schaftlichen und mathematischen 
Bereich gilt Fortran auch heute noch als 
die wichtigste Programmiersprache. So 
bietet sie zum Beispiel neben denallge- 
mein gebräuchlichen Zahlentypen Real 
(Fließkommazahlen) und Integer 
(Ganze Zahlen) auch noch den Typ 
»Double Precision« für Rechnungen mit 
höherer Genauigkeit sowie »Logical« für 
boolsche Operationen. Großrechner- 
Versionen beinhalten zudem noch den 
Typ »Complex«, der in der theoreti- 
schen Elektrotechnik eine sehr wich- 
tige Rolle spielt. 

Das Format dieser Sprache ist streng 
zeilenorientiert und erlaubt normaler- 
weise nur einen Befehl je Zeile. Das 
hängt damit zusammen, daß Fortran 
zunächst als lochkartenorientierte 
Sprache entstand. Grundsätzlich 
mußte man damals für jede neue Anwei- 
sung eine neue Lochkarte (beziehungs- 
weise Zeile) verwenden. Wie auch in 
Basic, das später aus Fortran entstand, 
mußte bei den ersten Versionen viel mit 
dem Goto-Befehl umhergesprungen 
werden. Neuere Versionen wie Fortran 
V und Fortran 77 bieten demgegenüber 
schon strukturierende Sprachelemen- 
te wie IF... THEN....ELSE...ENDIF. 

Nachdem die 1958 geschaffene Ver- 
sion Fortran Il eine mäßige Verbreitung 
gefunden hatte, entstand 1962 das in 
weiten Kreisen akzeptierte Fortran IV. 
Den fortschreitenden Auswüchsen 
immer neuer Versionen wurde 1966 
Einhalt geboten, mit einer Version, die 
größtenteils mit Fortran IV identisch 
war. Schließlich überarbeitete das ANSI 
Fortran 66 im Jahr 1977 nochmals und 
beseitigte einige eklatante Mängel. 

Unter CP/M ist Fortran derzeit für fast 
alle Mikrocomputer mit Z80-Prozessor 
erhältlich, ebenso wie eine Reihe von 
Fortran-Implementationen für MS-DOS- 
Computer. 


Cobol — 
die Geschäftige 


Die Programmiersprache Cobol ent- 
stand 1959 auf Initiative des US- 
Verteidigungsministeriums. Zu dieser 
Zeit begann Fortran sich gerade auszu- 
breiten. Was noch fehlte, war eine Spra- 
che für den kommerziellen und kauf- 
männischen Einsatz. So entwickelte 
man Cobol mit dem Ziel, große Daten- 
bestände verarbeiten zu können und 
die Ein/-Ausgabe zu unterstützen. 
Insbesondere die ersten Fortran- 
Versionen waren hierfür ungeeignet. 
Ende der fünfziger Jahre wurde die 
Codasyl-Entwicklungsgruppe aus Ver- 
tretern der Computerindustrie und der 
amerikanischen Regierung gegründet. 


Schon 1960 stellte diese Gruppe die 
erste Version mit der Bezeichnung 
Cobol-60 vor. Sie war wesentlich an die 
weniger bekannte Sprache Comtran 
(COMmercial TRANslator) angelehnt. 
Aufgrund der hastigen Entwicklung von 
Cobol innerhalb eines halben Jahres 
ergaben sich viele Ungereimtheiten, 
die sich teilweise durch alle Neuent- 
würfe hindurchschleppten und auch 
heute noch nicht ganz beseitigt sind. 
Cobol-61 war dann die Grundlage für 
alle späteren Versionen. Sie war zu 
Cobol-60 nicht kompatibel. 1965 
wurde als wesentliche Neuerung die 
Unterstützung von Massenspeichern 
und Tabellen mit eingebracht. 

Die Sprachelemente von Cobol sind 
je nach ihrer Funktion in Module zusam- 
mengefaßt. Das ANSI entwickelte bis 
1974 einen zwölf Module umfassen- 
den Standard, namentlich Cobol 
ANS-74. Er wurde 1980 nochmals ver- 
bessert. Den jeweils neuesten Stand 
veröffentlicht das CODASYL-Komitee 
im Abstand von drei Jahren. Der Stan- 
dard für die Bundesrepublik Deutsch- 
land ist in der DIN-Norm 66028 nach- 
zulesen. 

Die kurze Darstellung der Entwick- 
lungsgeschichte läßt erkennen, daß 
Cobol ebenfalls eine alte Sprache ist. 
Cobol-Programme müssen aus heuti- 
ger Sicht als mangelhaft angesehen 
werden. 

Ursprünglich verfolgte man wie bei 
keiner anderen Sprache das Ziel der 
Lesbarkeit des Programmtextes. Die 
Sprache sollte dann auch leicht erlern- 
bar sein. Der Programmtext erinnert 
stark an (englische) Prosa. Cobol- 
Programme simulieren nämlich die 
natürliche englische Sprache. So wird 
zum Beispiel jeder Befehl mit einem 
Verb eingeleitet. Die Grundrechenarten 
stehen nicht als Symbole, sondern als 
Befehlswörter (add, divide) zur Verfü- 
gung. Ebenso werden logische Opera- 
toren ausgeschrieben. Ein Beispiel: 
Wenn die Variable A größer ist als Null, 
soll der Variablen B die Summe der 
Variablen C und A zugeordnet werden. 
In Basic würde man das so formulieren: 
IF A>O THEN B= C+A 
Daraus wird in Cobol: 

IF A GREATER THAN ZERO ADD C TO 
A GIVING B. 

Daß so aus komplizierteren mathema- 
tischen Formeln monströse Gebilde 
werden, leuchtet ein. Da höhere mathe- 
matische Funktionen in Cobol ganz feh- 
len, ist die Sprache für wissenschaftli- 
che Anwendungen völlig ungeeignet. 

Derartige Beispiele verdeutlichen, 
daß das Entwicklungsziel von Cobol 
nicht sinnvoll erreicht wurde. Dennoch 
ist Cobol auch heute noch die weltweit 
am stärksten verbreitete Programmier- 
sprache. Ganze Rechenzentren arbei- 


ten mit ihr. Die hohen Investitionen und 
die Gewöhnung des Personals an diese 
Sprache wird auch in Zukunft für ihren 
Erhalt sorgen. Zudem erreicht auch 
noch keine neuere Programmierspra- 
che die Cobol-Domäne Datenorganisa- 
tion. 

Wer einen Mikrocomputer mit den 
Betriebssystemen CP/M oder MS-DOS 
(PC-DOS) besitzt, kann in Cobol ein- 
steigen. 


PL/I1 = 
von allem etwas 


Fortran und Cobol sind charakteri- 
stisch für die strikte Trennung in kom- 
merzielle und technisch-wissenschaft- 
liche Anwendungen zu Beginn der 
sechziger Jahre. Daneben wurden 
Computer nur noch in Spezialgebieten 
eingesetzt. Im Laufe der Zeit traten aber 
die Merkmale der naturwissenschaft- 
lich-technischen Bereiche in den 
betriebswirtschaftlichen Anwendun- 
gen immer mehr hervor und umgekehrt. 
So waren die kommerziellen Anwender 
mehr und mehr auf Methoden aus der 
Statistik, Operations Research und 
Ökonomie angewiesen. Mathematiker 
und Ingenieure stellten zunehmend 
höhere Ansprüche an Datenverwaltung 
und an die Ein-/Ausgabeunterstützung. 

Als logische Konsequenz kamen die 
Anbieter den neuen Bedürfnissen mit 
einer universellen Hard- und Software- 
konfiguration nach. Hardwareseitig ent- 
wickelte IBM die Rechnerfamilie /360 
mit dem Betriebssystem OS/360. 
Diese Anlagen zählten sich bereits zur 
dritten Computergeneration (das heißt, 
die Schaltkreise waren in Hybridtechnik 
ausgelegt, einer unmittelbaren Vorstufe 
der integrierten Schaltkreise). 

Bei den Überlegungen zu einer 
neuen Sprache war man zunächst von 
Fortran ausgegangen. Die Organisation 
SHARE (Society for Help to Avert 
Redundant Effort), eine Vereinigung 
wissenschaftlicher IBM-Anwender, 
einigte sich mit der Firma IBM auf die 
Gründung eines Sprachkomitees. 
Zunächst war die Rede von Fortran VI. 
Man gelangte aber schon nach kurzer 
Zeit zu der Erkenntnis, daß die 
gewünschten Verbesserungen eine 
Kompatibilität mit Fortran unmöglich 
machten. Die Anlehnung an Fortran 
hätte außerdem die große Gruppe der 
kommerziellen Verwender abge- 
schreckt. So entschied man sich für die 
Entwicklung einer gänzlich neuen Spra- 
che. Deren wichtigsten Entwurfsprinzi- 
pien waren: allgemeine Einsetzbarkeit 
und weitgehende Ausdrucksfreiheit. 
Der Sprachaufbau sollte modular sein 
und Testhilfen sowie Möglichkeiten zur 
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Fehlerbehandlung bieten. Ein großen- 
teils gegenläufiges Ziel bestand in den 
Forderungen, den vollen Zugriff auf 
Hardware- und Betriebssystemleistun- 
gen bei gleichzeitiger Maschinenunab- 
hängigkeit zu gewähren. R 

Nach vielen drastischen Überarbei- 
tungen hatte sich der Sprachumfang bis 
1965 stabilisiert. Nachdem die Abkür- 
zung für NPL (New Programming Lan- 
guage) bereits vergeben war, einigte 
man sich schließlich auf PL/I (Program- 
ming Language one). Im August 1966 
wurde dann der erste Compiler für eine 
IBM /360 freigegeben. Schließlich ver- 
abschiedeten das ANSI und die ECMA, 
ein europäisches Standardisierungsko- 
mitee, einen vorläufig endgültigen Stan- 
dard. Die Verbreitung von PL/1 nahm 
zunächst rasch zu, wurde aber später 
den gesetzten Erwartungen nicht 
gerecht. 

Kommen wir nun zu der Sprache, die 
jeder, und wenn nur vom Hörensagen, 
kennt. Sie kann sich rein zahlenmäßig 
im Mikrocomputerbereich als die am 

In den Sprachumfang von PL/1 wur- 
den viele Konzepte aus Fortran, Cobol, 
Algol und Jovial übernommen (letztere 
werden hier wegen ihrer geringen Ver- 
breitung nicht behandelt). Leider 
gelang es nicht, sich bei der Auswahl 
nur auf die guten Eigenschaften der 
Vorgänger zu beschränken. Zudem ist 
der Sprachumfang riesig. Eine fast 
unüberschaubare Anzahl von Schlüs- 
selwörtern zwingt zu Maßnahmen, 
durch die der Programmierer auch mit 
Teilmengen der Sprache sinnvoll arbei- 
ten kann. Daher ergeben sich für die 
PL/1 -Syntax sehr freizügige Vorschrif- 
ten. Einerseits existiert keine Zeilen- 
struktur, Zwischenräume, Einrücken 
und Kommentare dürfen fast beliebig 
verstreut werden. Da passiert es dann 
auch nicht selten, daß beim Program- 
mieren das Format aus allen Fugen 
gerät. Außerdem sind die Schlüssel- 
wörter nicht reserviert, wohl wegen 
ihrer großen Anzahl. Gebilde wie 
IF ELSE=THEN THEN IF=ELSE; ELSE 
IF=THEN 
tragen wohl zur Verwirrung jedes hoff- 
nungsvollen Programmierers bei. Ein 
wesentlich angenehmerer Fortschritt 
ist andererseits das ausgeprägte 
Blockkonzept der Sprache. PL/1 orien- 
tiert sich wesentlich an Prozeduren. All- 
gemein kann gesagt werden, daß die 
Einarbeitung in PL/1 viel Zeit braucht. 
Wer damit trotz aller Warnungen begin- 
nen will, kann dies unter CP/M oder auf 
PC-Kompatiblen tun. 
weitesten verbreitete Sprache der Welt 
rühmen. Sie ist schon fast als Teil der 
Allgemeinbildung zu betrachten. Ganz 
anders als bei den »großen professio- 
nellen« wurde die Entwicklung von 
Basic (Beginners All-purpose Symbolic 


Instruction Code) nicht durch eine 
Industrie- oder Militärlobby getragen. 
Die Ausrichtung der Sprache kommt 
denn auch in ihrem Namen zum Aus- 
druck: Sie wendet sich an den Anfänger 
und soll für jeden Zweck geeignet sein. 


Basic — 
Basis für Einsteiger 


Ihre geschichtliche Entwicklung 
erklärt viele Aspekte des Sprachkon- 
zepts. Basic wurde von Thomas Kurtz 
und John Kemeny von 1956 bis 1971 in 
den USA am Dartmouth College ent- 
wickelt. Ziel war es, Studenten, die sich 
nicht ausschließlich mit Ingenieurwis- 
senschaften beschäftigten, das Pro- 
grammieren zu erleichtern. So schlu- 
gen sich denn auch die Erfordernisse 
der allgemeinen Ausbildung einer Uni- 
versität in der Sprache nieder: Bei der 
angesprochenen Zielgruppe erschien 
ein eigener Programmierkurs nicht 
erforderlich. Vielmehr sollte das Pro- 
grammieren im Rahmen der Mathema- 
tikvorlesungen gelehrt werden. Hieraus 
erklärt sich auch die Ausrichtung von 
Basic auf mathematische Probleme. Die 
neue Sprache sollte leicht erlernbar 
und leicht zu benutzen sein. Dies war 
nach Meinung von Kurtz und Kemeny 
bei Fortran und Algol nicht der Fall. So 
erklärt sich auch, daß bei Basic nicht, 
wie bei PL/1, auf Bewährtes zurückge- 
griffen wurde. 

Im Gegensatz zu den bisher behan- 
delten Sprachen wurde Basic als voll- 
ständiges Programmiersystem konzi- 
piert. Der Benutzer kann im Dialog mit 
Basic arbeiten, ohne die Basic- 


Umgebung zu verlassen. Hierzu exi- 
stiert der »Direkt-Modus«, der das Edi- 
tieren, Ausführen und Speichern von 
Programmen unterstützt. 


Basic ist 
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zudem eine typische |Interpreter- 
Sprache, für die allerdings auch ver- 
schiedene Compiler erhältlich sind. 

Mit der Entwicklung des ersten Com- 
pilers begannen Kurtz, Kemny und eine 
Gruppe Studenten 1963. Im Mai 1964 
wurde dann das erste Basic-Programm 
ausgeführt; die erste Version kannte 
nur 14 Instruktionen. Diese Minimalaus- 
stattung wurde am Dartmouth College 
bis 1971 ininsgesamt sechs Versionen 
schrittweise vervollständigt. Seither 
nahmen die Autoren keine Veränderun- 
gen mehr vor. Das bedeutet natürlich 
nicht, daß Basic jemals eine wirkliche 
Standardisierung erfahren hätte. Im 
Gegenteil: Durch das Fehlen einer 
Interessenvertretung professioneller 
Anwender und durch die enorme Ver- 
breitung der Sprache wucherten die 
Basic-Versionen fast uferlos. Für 
nahezu jeden Mini- und Mikrocomputer 
und selbst auf Taschenrechnern ist 
Basic erhältlich. Da von Herstellerseite 
nach dem Motto verfahren wurde 
»jedem Topf ein anderer Deckel« ist 
Kompatibilität ein Fremdwort. Auch die 
Bemühungen der ECMA und ANSI in 
den letzten Jahren waren kaum von 
Erfolg gekrönt. Lediglich ein »Minimal 
Basic« wurde kompromißbereit zum 
Standard deklariert. Diese Teilmenge ist 
der ersten Sprachbeschreibung von 
1964 sehr ähnlich. Lediglich im Heim- 
computerbereich gelang es mit den 
MSX-Computern erstmals, einen wei- 
testgehenden Basic-Standard für 
Geräte verschiedener Hersteller zu 
schaffen. Haar in der Suppe war aber, 
daß die MSX-Computer wenig Verbrei- 
tung fanden. 

Ein Basic-Programm besteht aus 
nummerierten Zeilen in aufsteigender 
Folge. Dabei sind die Zeilennummern 
aus einem festgelegten Intervall zu 
wählen. Jeder Zeilennummer folgen 
eine oder mehrere Instruktionen. Die 
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Zeilennummern legen die logische Rei- 
henfolge der auszuführenden Anwei- 
sungen fest. Darüber hinaus dienen sie 
als Orientierung für die Sprungbefehle. 
Beim Editieren des Programmtextes 
lokalisieren sie die Zeilen. Basic ist 
noch stärker zeilenorientiert als Fortran. 
Das geht so weit, daß eine Basic- 
Anwendung durch die Zeilenlänge 
begrenzt wird. In einigen Basic- 
Versionen sind Fortsetzungszeilen mit 
dem Zeichen »&« möglich. 

Als Datentypen sind in Basic nur 
numerische Daten und Zeichenketten 
vorgesehen. Eine Unterscheidung in 
ganzzahlig und Fließkomma, wie es von 
anderen Sprachen her bekannt war, 
wurde der Einfachheit wegen bewußt 
vermieden, ist aber dennoch auf vielen 
Computern implementiert. Für Daten- 
strukturen stehen nur ein- und mehrdi- 
mensionale Felder (Arrays) zur Verfü- 
gung. Deren Elemente können je nach 
Version entweder nur einzeln manipu- 
liert werden, oder es stehen spezielle 
Matrizenoperationen bereit. 

Die Sprunganweisungen sind, wie 
bereits erwähnt, vielen ein Greuel. Zwar 
bieten moderne Basic-Versionen viele 
Befehle, die das strukturierte Program- 
mieren unterstützen, sie erfordern aber 
genaue Vorausplanung eines Pro- 
gramms. Im Regelfall endet bei länge- 
ren Programmen ein »Drauflosprogram- 
mieren« im Chaos aus GOTO, GOSUB 
und FOR...NEXT. 

Des weiteren beinhaltet Basic, je 
nach Ausstattung und Computer, 
Befehle für die Ein-/Ausgabe, mathema- 
tische Funktionen, Grafik, Tonerzeu- 
gung und den Zugriff auf das Betriebs- 
system. Hierauf im einzelnen einzuge- 
hen würde zu weit führen. Es sei daher 
auf entsprechende Fachliteratur ver- 
wiesen. 


Pascal - strukturiert 
und einfach 


Ein moderner Klassiker unter den 
Programmiersprachen ist Pascal. Der 
Name ist ausnahmsweise keine Abkür- 
zung. Er wurde zu Ehren des französi- 
schen Mathematikers Blaise Pascal 
gewählt, der 1642 im Alter von 19 eine 
der ersten funktionsfähigen Rechen- 
maschinen konstruierte. 

Die Wurzeln dieser Programmierspra- 
che reichen in das Ende der sechziger 
Jahre zurück. Zu jener Zeit stellten 
Nikolaus Wirth und C.A.R. Hoare Über- 
legungen an, auf der Basis von Algol 60 
eine Nachfolgesprache zu entwickeln. 
Algol 60 bot schon damals ein zufrie- 
denstellendes Sprachkonzept. Das gilt 
besonders für die Strukturierung des 
Programmablaufs und des Programm- 


textes. Wegen dieser Vorteile wurde 
Algol zur Grundlage einer ganzen 
Klasse von Programmiersprachen, die 
bei Pascal beginnt und vorläufig von 
Ada gekrönt wird. Eine der Schwächen 
ist dagegen die unzureichende Daten- 
strukturierung. Ebenso wie Basic und 
Fortran kennt Algol 60 nur das Array. 
Die später folgende Version Algol 68 
war ähnlich wie PL/1 zu umfangreich 
und unhandlich. Mit der Entwicklung 
von Pascal verfolgte man das entge- 
gengesetzte Ziel. Der Schweizer Pro- 
fessor Nikolaus Wirth formulierte bei 
der Entwicklung der Sprache an der 
ETH Zürich die folgenden Schwer- 
punkte: Pascal sollte nur grundlegende 
Sprachkonzepte enthalten. Diese soll- 
ten natürlich definiert sein und das 
Erlernen des strukturierten Program- 
mierens als eine systematische Diszi- 
plin unterstützen. Des weiteren sollte 
sie sich effizient auf allen Computern 
implementieren lassen. 

Die erste vorläufige Version entstand 
1968. Die vollständige Beschreibung 
eines Compilers und der Sprache 
selbst war 1971 fertig. Das 1974 
erschienene Benutzerhandbuch »Pas- 
cal User Manual and Report« enthält 
eine Sprachdefinition, die heute als 
Wirth-Standard bezeichnet wird. Die 
verbreiteten Versionen Turbo- und 
UCSD-Pascal enthalten demgegen- 
über noch einige Erweiterungen, die 
vor allem Grafik und Zeichen-Strings 
betreffen. 

Durch die leichte Erweiterbarkeit von 
Pascal entstanden bald viele Dialekte. 
Deshalb und wegen der weltweiten 
Anerkennung der Sprache nahmen 
sich verschiedene Normeninstitute die- 
sem Problem an. Die ISO setzte 
schließlich 1980 einen Standard fest, 
der in der DIN-Norm 66256 nachzule- 
sen ist. Strukturierung bedeutet nicht 
nur, daß das Programm übersichtlich 
ist, sondern daß sich der Vorgang des 
Programmierens in verschiedene Aktio- 
nen aufteilt. Bevor man sich an den 
Computer setzt, sollte man das Pro- 
blem genau analysieren und in Aufga- 
benpakete zerlegen. Dann ist für jedes 
Paket ein Algorithmus zu bestimmen 
und in Pascal zu formulieren. Erst dann 
beginnt die Tipparbeit. Pascal- 
Programme entstehen also auf dem 
Papier und weniger am Bildschirm. 
Diese Vorgehensweise erreicht eine 
niedrige Fehlerquote und damit sinkt 
auch die Zahl der Übersetzerdurch- 
läufe, was bei einer typischen Compiler- 
sprache wie Pascal sehr angenehm ist. 

Ein Pascal-Programm ist klar geglie- 
dert in einen Vereinbarungs- und einen 
Anweisungsteil. Vereinbart werden 


zuerst alle Variablen, Konstanten und 
deren Datentypen. Im Anweisungsteil 
werden die Aufgabenpakete in Proce- 


dures formuliert. Jede Procedure ent- 
hält einen eigenen Namen. Das eigentli- 
che Hauptprogramm besteht dann nur 
noch aus dem Aufrufen der Procedures 
und steht im Programmtext ganz am 
Ende. 

Daß der GOTO-Befehl in Pascal ent- 
halten ist, verwundert eigentlich. Ange- 
sichts der Strukturbefehle IF....THEN- 
CASE kann man gut auf ihn verzichten. 
Der Vorrat an Datentypen eröffnet 
gegenüber Basic ganz neue Möglich- 
keiten. Man unterscheidet hier zwi- 
schen einfachen Typen, strukturierten 
Typen und Zeigertypen. Integer, Char, 
Boolean und Real zählen zu den einfa- 
chen Typen. Boolean bezeichnet eine 
Variable, der nur die Werte False oder 
True zugeordnet werden können. Array, 
Record, Set und File stehen als struktu- 
rierte Typen zur Verfügung. Set 
bezeichnet eine Menge. Auf diesen Typ 
sind die üblichen Mengenoperationen 
Vereinigung, Durchschnitt, Differenz, 
Untermenge und Elementüberprüfun- 
gen anwendbar. Record ermöglicht 
Verbundvariablen. Es lassen sich so 
unterschiedliche Variablentypen zu 
einer Variable zusammenfassen. 
Record war ursprünglich für kommer- 
zielle Anwendungen gedacht (Tabellen- 
darstellung). Demgegenüber werden 
mit dem Typ File nur Variablen eines ein- 
zigen Typs verkettet. Der Typ Zeiger 
(pointer) schließlich ermöglicht verket- 
tete Listen und deren bequeme Mani- 
pulation, sowie Baumstrukturen. Wem 
das noch nicht reicht, der kann sich in 
Pascal weitere einfache Datentypen 
selbst definieren. 

Pascal ist vielseitig und erzieht zum 
strukturierten Denken. Seine Verarbei- 
tung, vor allem im akademischen Be- 
reich, ist folgerichtig sehr hoch. So lie- 
gen denn auch für fast alle rechnereige- 
nen Betriebssysteme wie auch für 
CP/M und MS-DOS Pascal-Versionen 
vor. 


Forth — die etwas 
andere Sprache 


Forth entstand Anfang der siebziger 
Jahre. Charles H. Moore entwickelte 
die Sprache ursprünglich zur Steue- 
rung von Radioteleskopen. Er arbeitete 
dazu mit einem IBM-1130, einem Com- 
puter der dritten Generation. Das End- 
produkt war aber so mächtig, daß es 
Moores Computer als einen der vierten 
Generation erscheinen ließ. Er wollte 
der neuen Sprache daher den Namen 
Fourth geben. Namen mit mehr als fünf 
Buchstaben waren auf dem IBM jedoch 
nicht erlaubt. So wurde das »u« ein 
Opfer dieser technischen Unzuläng- 
lichkeit. 
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Forth ist interaktiv wie Basic. Das 
heißt, es existiert sowohl ein Interpreter 
als auch ein Compiler. Programme kön- 
nen somit erst im Direktmodus »häpp- 
chenweise« getestet und anschließend 
compiliert werden. Des weiteren ver- 
bindet Forth Merkmale der Assembler- 
sprachen mit denen der Hochspra- 
chen. 

Die Strukturierung in Forth entsteht 
durch die Definition immer neuer Worte. 


Der ohnehin schon große Sprachum- . 


fang nimmt beim Programmieren stän- 
dig zu. Beliebige Befehle können zu 
einem neuen Befehl zusammengefaßt 
werden, der dann sofort wieder in wei- 
tere Befehle mit eingebaut werden 
kann. Schließlich steht für das gesamte 
Programm ein einziger Befehl am Ende 
dieser Kette. 

Selbstverständlich stellt Forth auch 
die Kontrollstrukturen zur Verfügung, 
die bereits für Pascal angesprochen 
wurden, wie IF...ELSE....ENDIF, 
BEGIN...UNTIL, BEGIN..WHILE etc. 
Das berüchtigte GOTO fehlt hier ganz, 
ergäbe auch bei diesem Sprachkon- 
zept keinen Sinn. 

Grundlegendes Prinzip von Forth ist 
das Operieren mit dem Stapelspeicher 
(Stack). Dieser funktioniert nach dem 
LIFO-Prinzip (Last In, First Out). Alle 
Werte, die auf dem Stapel abgelegt wur- 
den, lassen sich nur in umgekehrter 
Reihenfolge wieder herunternehmen. 
Für einen problemlosen Ablauf dieses 
Systems sorgen eine ganze Reihe von 
Stack-Befehlen, mit denen sich Werte 
verschieben und vertauschen lassen. 
Sämtliche mathematischen Operatio- 
nen laufen in Forth über den Stack. Man 
bedient sich hierbei der Umgekehrten 
Polnischen Notation (UPN), die recht 
gewöhnungsbedürftig und Benutzern 
von HP-Taschenrechnern bekannt ist. 

Forth ist ein sehr offenes System und 
durch seine Assemblernähe universell 
einsetzbar. Fehlende Funktionen kön- 
nen jederzeit selbst programmiert wer- 
den. Zudem ist Forth sehr schnell. Das 
Erlernen der Sprache und die Über- 
sichtlichkeit der Programme können als 
noch ausreichend eingestuft werden. 
Auf jeden Fall fasziniert Forth jeden, 
der sich länger damit beschäftigt. Für 
alle verbreiteten Mikrocomputer exi- 
stieren mittlerweile eine oder mehrere 
Versionen. 


Logo — kinderleicht 


Seymour Papert, der als geistiger 
Vater der Sprache Logo gilt, arbeitete 
12 Jahre an der Verwirklichung dieser 
»Erziehungsphilosophie«. Er leitete ein 
eigens gegründetes Entwicklungsteam 
aus Programmierern und Lehrkräften 


am MIT (Massachusetts Institute of 
Technology) in den USA. Man arbeitete 
damals ausschließlich auf den größten 
vorhandenen Datenverarbeitungsanla- 
gen. Dadurch fand ein wesentliches 
Konzept der KlI-Sprache Lisp in Logo 
Anwendung: die Listenprogrammie- 
rung. Listen sind einfach zu definieren 
und können per Befehl manipuliert, 
kombiniert und verglichen werden. Eine 
leicht programmierbare Dateiverwal- 
tung ist nur ein Anwendungsbeispiel 
dieser Technik. 

Bekannt wurde Logo vor allem durch 
die Schildkröte, ein kleines Zeichen- 
symbol der »Turtle-Graphics«. Mitihr las- 
sen sich auf einfache Weise die tollsten 
Grafiken zaubern. Die Schildkröte krab- 
belt über den Bildschirm und hinterläßt 
dabei eine sichtbare Spur. 


Eine Schildkröte 
machte 
Logo bekannt 


Gesteuert wird mit einfachen Befeh- 
len wie FORWARD, BACK, LEFTTURN, 
RIGHTTURN. Zusätzlich muß noch die 
Länge der zurückgelegten Strecke und 
des Drehwinkels angegeben werden. 
Ebenso ist eine Standortabfrage der 
Turtle möglich. Logo-Programme 
ähneln in der Struktur dem Baukasten- 
prinzip der Forth-Programme. Mit Hilfe 
des Interpreters lassen sich einzelne 
Bausteine erproben und später zum 
eigentlichen Programm zusammenset- 
zen. Der Komfort ist dabei in Logo 
ungleich höher als in allen bisher 
genannten Sprachen. So kann der 
Anwender vorerst Begriffe wie Archi- 
vierung, Dateien und andere spezielle 
Funktionen der Datenverarbeitung links 
liegen lassen. Diese Vorteile gehen 
aber leider zu Lasten des Speicherplat- 
zes. 

Eng mit dem Prozedurkonzept ver- 
bunden ist die Rekursivität von Logo. 
Prozeduren sind in der Lage, sich selbst 
aufzurufen. Auf diese Weise lassen sich 
schnell reizvolle grafische Gebilde 
erzeugen und gewisse mathematische 
Zusammenhänge einfach ausdrücken. 
Rekursive Strukturen sind in Basic gar 
nicht und in vielen anderen Sprachen 
nur mit hohem Aufwand zu verwirkli- 
chen. 

In die Logo-Philosophie wurden 
Erziehungstheorien des Schweizer 
Philosophen Jean Piaget eingebracht. 
Dieser hatte zuvor das Lernverhalten 
von Kindern analysiert. Tatsächlich 
wirkt Logo besser auf die Denkweise 
eines Schülers als Basic oder Pascal. 
Bemängelt werden muß bei Logo haupt- 
sächlich die geringe Verarbeitungsge- 
schwindigkeit der Programme. Sie fällt 


aber bei einem Lernsystem nicht so 
stark ins Gewicht. 

Wegen des hohen Speicherbedarfs 
sind Logo-Interpreter auf Mikrocompu- 
tern nur als Ausschnitt des Gesamtsy- 
stems erhältlich. Dies wird sich mit 
wachsendem Speicherstandard jedoch 
bald ändern. 


Comal — 
gelungene Essenz 


Im Jahre 1973 ging Comal aus den 
Sprachen Basic und Pascal als ein 
neuer Ableger hervor. Später kamen in 
Comal noch Elemente von Logo hinzu, 
so zum Beispiel die Schildkrötengrafik. 
Zudem sind in Comal der Compiler und 
der Interpreter nicht getrennt vorhan- 
den, sondern es wurden deren beste 
Elemente in einer Zwischenstufe 
zusammengefaßt. Ein Comal-Pro- 
gramm besteht aus drei Schritten. Im 
ersten wird schon bei der Programm- 
eingabe die Syntax überprüft. Dieser 
Syntaxchecker ist selbst für den ohne- 
hin schon eingabefreundlichen Inter- 
preter ungewöhnlich komfortabel. Die 
Comal-Schlüsselworte werden sofort in 
sogenannte »Token« übersetzt, das sind 
Abkürzungen, die nur ein Byte bean- 
spruchen. Dieses Prinzip verwenden 
übrigens alle Interpreter. Der zweite 
Schritt beginnt nach dem Programm- 
start. In einer Art Compilerdurchlauf 
wird der Programmtext nach Variablen, 
Prozeduren, Funktionen und Sprüngen 
durchsucht. Die Ergebnisse dieser 
Analyse werden dann in einer geson- 
derten Liste zusammengefaßt. Man 
kann diesen Vorgang auch als eine Art 
automatische Deklaration ansehen. Im 
dritten Schritt, dem Programmlauf 
selbst, wird auf diese Liste ständig 
direkt zugegriffen. So ergeben sich 
gegenüber Basic, wo der Interpreter oft 
den ganzen Programmtext absucht, 
enorme Geschwindigkeitsvorteile. 

Die Comal-Syntax lehnt sich stark an 
die von Basic an. Im Direktmodus wur- 
den die meisten Befehle Wort für Wort 
übernommen. Das gleiche gilt für einige 
Befehle des Programm-Modus. Einige 
Comal-Versionen akzeptieren neben 
den eigenen Schlüsselworten sogar 
noch gleichbedeutende Basic-Befehle. 
Wer aus Basic zu Comal aufsteigt, ist so 
zwar vor Irrtümern einigermaßen sicher, 
jedoch wird dem Prinzip der Eindeutig- 
keit nicht gerade Rechnung getragen. 

Von Pascal wurde die Strukturiertheit 
übernommen, dessen strenge Syntax- 
vorschriften aber erfreulicherweise ver- 
mieden. Die typischen Kontrollstruktu- 
ren, die schon bei Pascal und Basic 
beschrieben wurden, sind ausnahms- 
los vorhanden. Die Lesbarkeit des Pro- 
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grammtextes wird zudem dadurch 
unterstützt, daß Comal beim Listen eine 
optische Gliederung vornimmt. 

Comal wird für fast alle gängigen 
Mikrocomputer angeboten. Erfreuli- 
cherweise stehen auch, ähnlich wie bei 
Forth, zahlreiche Public-Domain- 
Versionen zur Verfügung. Diese unter- 
scheiden sich von kommerziellen 
Sprachangeboten lediglich im Umfang. 
‚Es wird erwartet, daß Comal in Zukunft 
eine starke Verbreitung erfährt. Jüng- 
ster Anhaltspunkt für diese These ist 
der Beschluß der Kultusministerien, 
Pascal im Informatikunterricht allmäh- 
lich durch Comal zu ersetzen. 


C — die Zukunft? 


»C« - für diesen einen Buchstaben 
lassen viele Programmierer Pascal, 
Forth oder Fortran links liegen. Viele 
betrachten C als die Programmierspra- 
che schlechthin. Tatsächlich bietet C 
viele bestechende Vorteile, die sich von 
denen der anderen Hochsprachen 
unterscheiden. In C wurden bekannte 
Betriebssysteme wie Unix und GEM 
geschrieben. 

Die Entwicklung von C reicht bis an 
den Anfang der siebziger Jahre zurück. 
Die Namensgebung war ebenso kurios 
wie einfallslos. 1970 begann die Firma 
Digital Equipments mit der Entwicklung 
von Spezialsprachen, die die Program- 
mierung von Minicomputern unterstüt- 
zen sollten. Diese wurden einfach nach 
dem Alphabet benannt. B war also eine 
Weiterentwicklung von A und diente 
1971 dazu, Unix auf verschiedene 
Rechner zu übertragen. Bald darauf 
erkannten Dennis Ritchie und Ken 
Thompson, die damals bei Bell Labora- 
tories beschäftigt waren, die Leistungs- 
fähigkeit von B. Sie verbesserten diese 
Sprache bis 1973 entscheidend. Wie 
das Endprodukt heißt, wissen wir 
bereits. Unix wurde wenig später eben- 
falls auf C umgeschrieben. 

Wenn ganze Betriebssysteme in C 
gehalten sind, läßt sich die ungeheuere 
Effizienz dieser Sprache schon erah- 
nen. Das C-Compilat geht mit dem Spei- 
cher äußerst sparsam um, und ist 
zudem um den Faktor 50 schneller als 
vergleichbare Basic-Programme. 

Der eigentliche Befehlsvorrat von C 
ist denkbar klein. Er umfaßt nur 13 
Instruktionen. Bei der Erzeugung eines 
C-Programms wird der Quelltext zuerst 
mit dem mitgelieferten Editor oder einer 
Textverarbeitung geschrieben. Dieser 
dient dann als Eingabedatei für den 
Compiler. Bis hierher besteht also kein 
Unterschied zur Vorgehensweise mit 
den meisten anderen Compilerspra- 
chen. Der Compiler überprüft den Text 


und übersetzt diesen mit den ihm 
bekannten Befehlen in eine Zwischen- 
datei und legt diese auf einen externen 
Speicher (zum Beispiel Diskette) ab. 
Anschließend beginnt das sogenannte 
»Linking«. Der Linker ordnet aus einer 
externen Bibliothek die noch fehlenden 
Befehle entsprechendem Assembler- 
code zu. So entsteht schließlich das 
lauffähige Programm, das fast so kom- 
pakt ist, als wäre es direkt in Maschi: 
nensprache geschrieben. Das Compi- 
lieren benötigt jedoch wegen des Zwi- 
schencodes je nach Geschwindigkeit 
des Speichermediums mehr Zeit, als 
die unmittelbare Übersetzung in 
Maschinensprache. 

Die Vorteile des Compiler-Linker- 
Prinzips wiegen diesen Nachteil bei 
weitem auf: C ist praktisch uneinge- 
schränkt portabel und die Linker- 
Funktion kann man selbst erweitern. C- 
Programme bieten neben der selbst- 
verständlichen Strukturierung einige 
ungewöhnliche aber vorteilhafte Eigen- 
schaften. So sind in Anlehnung an 
Assembler Befehle zum Inkrementieren 
und Dekrementieren vorhanden, Varia- 
ble können als Registervariable dekla- 
riert werden. Daß die Benutzung derar- 
tiger Sprachmittel einem Compiler das 
Leben leicht macht, ist klar. Einschrän- 
kungen entstehen jedoch bei Prozes- 
soren, die nur wenige Register aufwei- 
sen, wie beispielsweise die drei 8-Bit- 
Register des 6502, der nur A, X und Y 
zu bieten hat. 

Ein weiteres nennenswertes Stilmit- 
tel unter C sind Makros. Diese sind mit 
Unterprogrammen vergleichbar, die 
nicht angesprungen werden müssen, 
sondern jeweils erneut vom Compiler in 
den Objektcode eingebunden werden. 
Diese Technik bringt einen großen Zeit- 
vorteil, da Parameterübergaben und 
Sprünge entfallen. 

Im 8-Bit-Bereich ist C nur auf dem 
Z80 unter CP/M verbreitet. Eine Ver- 
sion für den C 64 stellt hier eine erfreuli- 
che Ausnahme dar. Für 16- und 
32-Bitter existieren aber umfangrei- 
chere Versionen. 


Ada — 
gekrönter Adel 


Ada ist heute als Krönung bei der Ent- 
wicklung modularer Programmierspra- 
chen anzusehen. Die Sprache wurde 
erst in jüngster Zeit im Auftrag des welt- 
weit größten Softwaresponsors ent- 
wickelt, dem Pentagon. Der finanzielle 
und organisatorische Aufwand dafür 
war entsprechend riesig. Benannt ist 
die Sprache nach der jungen Gräfin Ada 
Byron, die um 1830 für Babbages 
(siehe oben) Rechenmaschinen ein 


nahezu komplettes Programm zur 
Berechnung der Bernoullischen Zahlen 
schrieb. 

Der Aufwand, der um Ada getrieben 
wurde, erklärt sich mit einer Kalkulation 
des US-Verteidigungsministeriums. 
Danach können zwischen 1983 und 
1999 etwa 24 Milliarden Dollar (!) ein- 
gespart werden, wenn eine einzige uni- 
verselle Programmiersprache die bis- 
herigen 450 (!!) Programmiersprachen 
ersetzen könnte. Ada ist ähnlich PL/1 
sehr umfangreich. Es wäre daher 
zwecklos, auf einzelne Sprachele- 
mente einzugehen. Deshalb hier nur die 
grundsätzlichen Sprachkonzepte von 
Ada: 

- Das Modulkonzept von Ada ist 
äußerst umfangreich. Es stehen sowohl 
datenorientierte als auch funktions- 
orientierte Module zur Verfügung. 
Innerhalb der datenorientierten Pakete 
lassen sich fast beliebige Datentypen 
und Datenstrukturen realisieren. 

- Ähnlich wie in Pascal können Daten- 
strukturen geschachtelt werden. 
Umfangreichere Prozedur- und Funk- 
tionskörper werden ausgelagert, zum 
Beispiel um die Lesbarkeit der Pro- 
gramme zu erhöhen. 

- Sämtliche Kontrollstrukturen, von 
UNTIL bis hin zu CYCLE-Schleifen ste- 
hen zur Verfügung. Ferner sind alle line- 
aren und strukturierten Datentypen 
implementiert. 

- Ein automatischer Textformatierer 
(Pretty-Printer) wertet Schachtelungs- 
strukturen aus und sorgt für ein über- 
sichtliches Layout des Programmtex- 
tes. 

- Neben Parallelverarbeitung (Multi- 
tasking) gehören Konzepte wie die 
Parallel- und Ausnahmebehandlung zu 
den bemerkenswerten Fähigkeiten, auf 
deren Erklärung hier wegen der kom- 
plexen Zusammenhänge verzichtet 
wird. 

Im großen und ganzen wurden die 
gesetzten Ziele bei der Entwicklung 
von Adanach dem heutigen Erkenntnis- 
stand optimal erreicht. Die zu Anfang 
unter den Qualitätsaspekten genann- 
ten Stichworte wie Vollständigkeit, 
Zuverlässigkeit, Korrektheit, Übertrag- 
barkeit, Wartung und Fehlerbehandlung 
wurden weitestgehend realisiert. Die 
Einfachheit der Sprache ist als ausrei- 
chend zu betrachten, wenn auch die 
vollständige Einarbeitung in dieses 
System Jahre beansprucht. Ada ist für 
Mikrocomputer zur Zeit nur unter MS- 
DOS verfügbar und auch hier nur in 
einer abgespeckten Version. 

Wir sind nun mit dem Aufstieg im 
»modernen Turm zu Babel« fast an der 
Spitze angelangt. Nach unten blickend 
können wir die gebräuchlichsten Spra- 
chen beurteilen. 

(Matthias Rosin/ev) 


COMPUTER 
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Pascal gilt als hervorragend 
geeignete Computersprache für 
Lehre und Unterricht. Zwei 
Pascal-Systeme treten an, dem 
Atari ST auch den Schulbereich 
zu erschließen. Ist der ST reif 
fürs Abitur? 


omputer sind von Natur aus voll- 

kommen respektlos. Unbeküm- 

mert dringen sie in alle nur denk- 
baren Bereiche ein und zeigen selbst 
davor keine Scheu, in die geheiligten 
Gefilde des deutschen Schulwesens 
einzubrechen. Jedem Hüter humanisti- 
schen Bildungsgutes muß es wahrhaf- 
tig monochrom vor Augen werden, 
wenn sich seine ihm anvertrauten 
Zöglinge plötzlich mit einer seltsamen 
Sprache namens Pascal beschäftigen, 
statt wie gewohnt Latein oder Grie- 
chisch zu büffeln. Und das geschieht 
dann auch noch an diesen äußerst 
suspekten Computern. 


Doch letztlich muß auch eine so alt- 
ehrwürdige Institution wie die Schule 
der modernen Zeit ihren Tribut zollen. 
Der Informatikunterricht und die Com- 
putersprache Pascal haben inzwischen 
einen festen Platz im Lehrplan erhalten. 
Die strenge Sprachstruktur und die Pro- 
blemorientierung machen Pascal ohne 
jeden Zweifel zu einer idealen Sprache 
für diesen Anwendungsbereich. Dabei 
ist Pascal weit entfernt davon, nur eine 
akademische Lehrsprache zu sein. In 
Pascal kann man nämlich »richtig« pro- 
grammieren und Programme erzeugen, 
die man verkaufen kann. Wer in der 
Schule Pascal lernt, hat also nicht nur 
für die Schule, sondern tatsächlich 
etwas für das Leben gelernt. 

Der AtariST hatsich in der kurzen Zeit 
seit seiner Markteinführung als ausge- 
sprochen sprachbegabt erwiesen. 
Neben Logo, C, Basic (hier stottert er 
noch ein klein wenig), Forth, Modula 
und verschiedenen anderen Sprachen, 
spricht und versteht er seit einiger Zeit 
auch Pascal. 

Auf dem Markt gibt es im Moment 
zwei Pascal-Systeme zu kaufen, das 
von Atari selbst vertriebene ST-Pascal 
(Preis: zirka 250 Mark) und das MCC- 
Pascal (Preis: 340 Mark) der engli- 
schen Firma Metacomco. Beide Pascal- 
Versionen stellen komplette Entwick- 


lungssysteme dar, die auch die Pro- 
grammierung der grafischen Bediener- 
oberfläche GEM zulassen. Allerdings 
sind beide Systeme TOS-Applikatio- 
nen, also nicht in eine grafische Ober- 
fläche eingebunden. 

Zum Lieferumfang des ST-Pascal 
gehört neben einem 74-seitigen 
deutschsprachigen Handbuch in halt- 
barer Ringheftung eine 3'-Zoll- 
Diskette mit 23 Dateien. Der Besitzer 
eines Entwicklungspaketes Atari 520 
ST findet hier einige alte Bekannte vor, 
nämlich die GEM-Libraries AESBIND 
und VDIBIND sowie die Hilfsprogramme 
BATCHTTP, RM.PRG und WAIT.PRG 
aus dem C-Compiler-System von Digital 
Research. Der Pascal-Compiler be- 
steht aus einer gut 128 KByte großen 
Datei PASCAL.PRG. Dazu gehören die 
speziellen Pascal-Libraries PASLIB und 
PASGRAO, und eine Textdatei 
ERRORSTXT mit den Standard- 
Fehlermeldungen des Pascal. Vervoll- 
ständigt wird das Angebot durch einige 
Steuerdateien zum Compilieren und 
Linken (die .BAT-Dateien), durch den 
Linker FASTLINK.PRG, eine Include- 
Datei SCREEN.INC mit den VT52-Steu- 
ercodes, einige Beispielprogramme als 
Pascal-Quelltext und durch den TOS- 
Editor EDIT.-TTP. 

Der Editor ist ein Full-Screen-Editor 
mit Steuerung durch Cursortasten und 
Control-Codes. Die Funktionstasten 
sind nicht belegt. Ebenfalls vorhanden 
sind einige höhere Editor-Funktionen 
wie Suchen/Ersetzen und Blockver- 
schieben. Nach Eingabe von CTRL-K 
können Befehle zur Steuerung des 
Datenverkehrs mit Diskettenlaufwerken 
eingegeben werden. 

Dieser Editor erlaubt auch das Bear- 
beiten umfangreicher Quelltexte. Wer 
allerdings schon einmal einen Text- 
Editor mit grafischer Bedieneroberflä- 
che benutzt hat, wird den GEM-Komfort 
schmerzlich vermissen. Da der Compi- 
ler des ST-Pascal ASCIli-Dateien als 
Quelltexte erwarte, kann jedoch 
selbstverständlich jeder Editor benutzt 
werden, der solche Dateien erzeugt. 

Im Gegensatz zu dem nicht allzu kom- 
fortablen Editor ist der Compiler PAS- 
CAL.PRG geradezu luxuriös ausgestat- 
tet. Erkann sowohl durch Anweisungen 
aus einer Kommandozeile beim Compi- 
lerstart, als auch durch Anweisungen 
aus dem Quelltext in vielfältiger Weise 
gesteuert werden. 

Das Handbuch gibt ausführlich dar- 
über Auskunft. Der Compiler erzeugt 
eine Objektcode-Datei im 68000-Ma- 


schinencode, die ein Linker (FAST- 
LINK.PRG) mit Teilen der Library- 
Dateien zu fertigen Programmen ver- 
bindet. Diese Programme enthalten ein 
sogenanntes Runtime-Modul und sind 
deshalb wie andere TOS- oder GEM- 
Applikationen aus dem GEM-Desktop 
abrufbar. Der Sprachumfang nach dem 
ISO-Standard ist beträchtlich erweitert, 
zum Beispiel durch Implementierung 
des Variablentyp STRING. Weiterhin 
sind die sehr schnellen Grafik-Routinen 
des ST-Betriebssystems, das soge- 
nannte LINE__A-Interface, direkt als 
Standard-Prozeduren und -Funktionen 
aufrufbar. Ebenso einfach erfolgt der 
Aufruf von Betriebssystem- und GEM- 
Routinen. Spezielle Externdeklaratio- 
nen (GEMDOS, XBIOS, BIOS und C) im 
Quelltext bewirken die Einbindung der 
entsprechenden Library-Module beim. 
Linken. Alle vordefinierten Funktionen 
erläutert das Handbuch recht ausführ- 
lich, sogar mit kleinen Beispielprogram- 
men. Dennoch kann das Handbuch ein 
Pascal-Lehrbuch für Anfänger nicht 
ersetzen. Hierzu sei auf die einschlä- 
gige Fachliteratur verwiesen. 

Der schon erwähnte Linker FAST- 
LINK.PRG ersetzt die beiden Pro- 
gramme LINK68.PRG und REL- 
MOD.PRG, die mit den ersten Versio- 
nen des ST-PASCAL geliefert wurden. 
Die hohe Geschwindigkeit des Linkvor- 
ganges mit FASTLINK.PRG ist in Bild 1 
dokumentiert. Besitzer des C-Compi- 
lers von Digital Research aus dem Ent- 
wicklungspaket können den neuen 
Blitzliinker auch für das Linken Ihrer C- 
Programme verwenden. 


Bei allem Positiven, was bisher über 
das ST-Pascal zu vermerken war, darf 
ein Ärgernis nicht unerwähnt bleiben. 
Der Pascal-Compiler ist mit einem einfa- 
chen Kopierschutz versehen, der auf- 
grund seiner Primitivität kaum Schutz 
vor illegalem Kopieren bietet. Dafür 
bringt er aber beim Arbeiten mit einer 
RAM-Disk oder, wenn einmal verfügbar, 
mit einem Festplatten-Speicher unnöti- 
gen Zeitverlust beim Compilieren. 
Selbst wenn alle Dateien der Pascal- 
Systemdiskette auf eine RAM-Disk 
oder eine Festplatte übertragen sind, 
muß sich bei der Compilierung die 
Pascal-Diskette im Diskettenlaufwerk A 
befinden. Bei jedem Compilerlauf, egal 
auf welchem Externspeicher sich der 
Compiler befindet, wird mehrfach (!) auf 
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eine besonders präparierte Schutzspur 
auf der Pascal-Diskette zugegriffen. 
Dankenswerterweise hatte der Pro- 
grammierer beim Linker ein Einsehen 
und verzichtete auf derartige Kinde- 
reien. 

Das MCC-Pascal wird auf zwei Dis- 
ketten geliefert, die insgesamt 57 
Dateien enthalten. Das mitgelieferte 
Handbuch mit etwa 200 Seiten ist lei- 
der nur in englischer Sprache erhältlich. 
Wer Englisch gut beherrscht, findet hier 
allerdings sehr ausführliche Erläuterun- 
gen zu Befehlsumfang und Systembe- 
dienung. Das System setzt sich aus 
ähnlichen Elementen zusammen wie 
beim ST-Pascal. Man findet Editor, 
Compiler, Include-Dateien zum Aufru- 
fen von GEM-Routinen, Linker und 
Libraries, sogar gut dokumentierte 
Asssembler-Quelltexte der GEM-Libra- 
ries sind vorhanden. Auch hier trifftman 
zwei wohlbekannte Programme. Wie 
bei allen Metacomco-Computerspra- 
chen wird der TOS-Editor EDTTP mit- 
geliefert. Dieser Editor von beträchli- 
cher Leistungsstärke war bereits 
Bestandteil der zweiten Serie der Atari- 
Entwicklungspakete, und dürfte ent- 
sprechend weit verbreitet sein. Leider 
hat sich Metacomco noch nicht zur Ein- 
bindung in eine GEM-Oberfläche ent- 
schließen können. 

Als Linker findet eine Updateversion 
des GST-Linkerss aus dem GST- 
Assembler und dem GST-C Verwen- 
dung. Er kann hier aber nicht wie etwa 
im Assembler aus einer grafischen 
Bedieneroberfläche gestartet werden. 
Besitzer des GST-Assemblers können 
jedoch ohne große Schwierigkeiten 
das gesamte Pascal-System in die 
Oberfläche des Assemblers integrie- 
ren. Den Pascal-Compiler startet näm- 
lich auch die Option »Run Program« im 
File-Menü. Der Linker läßt sich wie im 
Assembler aus dem entsprechenden 
Link-Menü steuern und starten. Auch 
die vielfältigen Funktionen zur Doku- 


mentation des Linkvorganges sind 
ansprechbar. 

Der Compiler PASCALTTP besitzt 
viele Optionen, die jedoch nur aus einer 
Kommandozeile bei Compilerstart, 
nicht aber aus dem Quelltext, aufrufbar 
sind. Er erzeugt aus dem Pascal- 
Quelltext eine Objektcode-Datei im 
GST-Format mit dem Dateityp .BIN, die 
durch den GST-Linker bearbeitet wer- 
den kann. Es ist aber auch eine 
Compiler-Option einstellbar, die die 
Compilierung des Quelltextes in das 
Format des ASS68 aus dem Entwick- 
lungspaket ermöglicht. Aus diesem 
Grunde sind die Pascal-Library PASLIB, 
die GEM-Library GEMLIB und das 
Runtime-Modul STARTUP als .BIN- 
Dateien für den GST-Linker und als .O- 
Dateien für Digital Research Linker 
(LINK68 oder FASTLINK) auf den Dis- 
ketten vorhanden. 


Zwei Disketten 
voll Pascal 


Zum Test und zum Vergleich mit dem 
ST-Pascal wurde nur die GST-Option 
verwendet. Die fertigen Programme 
sind wie beim ST-Pascal auch ohne Pas- 
calsystem lauffähig und wie normale 


GEM- oder TOS-Applikationen zu 
benutzen. 
Was leistet der MCC-Pascal- 


Compiler? Um es gleich vorweg zu 
sagen, MCC-Pascal ist nur etwas für 
ausgesprochene Pascal-Puristen. Der 
Sprachumfang umfaßt genau das ISO- 
Standardpascal, nicht mehr, aber auch 
nicht weniger. Der Variablentyp 
STRING fehlt ebenso wie die Funktion 
KEYPRESS. Dinge also, die die Pascal- 
programmierung erleichtern. Leider 
kann die vorliegende Version des MCC- 


Pascal keine Betriebssystem- oder 
LINE__A-Aufrufe durchführen. Die 
GEM-Funktionen sind über eine 


Compilierzeiten »Sieb des Eratosthenes« 


Diskettenbetrieb 
Compiler 
12,7 sec 
51,0 sec 


MCC-PASCAL 
ST-PASCAL 


Linker 
106,0 sec 
29,7 sec 


. RAM-Disk 
Compiler Linker 
1,9 sec 9,8 sec 
14,8 sec 1,1 sec 


Laufzeit 


17,3 sec 
0,7 sec 


Bild 1. S wie super, T wie Tempo: Supertempo von ST-PASCAL 


N Rechengenauigkeit mit REAL-Zahlen 


MCC-PASCAL 

Endwert 

a 0,0010 

41° :4000...0,0971 10000 
10000 0,0491 100015 
100000 0,0964 990564 
200000 - En 


Subtraktionen 


 Startwert 
1000 


100 


Bild 2. Rechnen will gelernt sein 


660,6 


ST-PASCAL 


Endwert 
0,0000 
0,0000 
0,0000 
0,0853 
- 0,0437 


Zeit 
1,3 
7,6 
72,8 


Zeit 
0,5 
3,0 
25,8 
241,0 


Subtraktionen 
1000 
10000 
100000 
1000000 
2000000 


Gruppe von INCLUDE-Dateien zugäng- 
lich, die EXTERN-Deklarationen von 
AES- und VDI-Routinen sind entspre- 
chend den Digital Research-Spezifika- 
tionen zum GEM-System enthalten. Die 
eigentlichen Routinen befinden sich in 
der Library GEMLIB, die allerdings noch 


nicht ganz fehlerfrei zu arbeiten 
scheint. 
Bei einem Vergleich der beiden 


Pascal-Versionen wurden die Zeiten für 
Compilierung und Linken des Bench- 
mark-Klassikers »Sieb des Eratosthe- 
nes« sowie die Laufzeiten der erzeug- 
ten Programme für einen Durchlauf zur 
Ermittlung der Primzahlen gemessen 
(Ergebnisse in Bild 1). 

Der MCC-Compiler arbeitet sehr 
schnell. Er istbeim Arbeiten mit der Dis- 
kette schneller als der ST-Pascal- 
Compiler mit einer RAM-Disk. Genau 
umgekehrt verhält es sich hinsichtlich 
der Linkdauer. Hier hat FASTLINK ein- 
deutig die Nase vorn. Geradezu sensa- 
tionell ist jedoch der Unterschied in der 
Laufzeit der Programme. Mit gut 17 
Sekunden braucht das mit MCC- 
PASCAL erzeugte Programm länger als 
das entsprechende Turbo-Pascal- 
Programm unter CP/M-Emulation. 

Bild 2 gibt einen weiteren Test wieder, 
der neben der Laufzeit der Programme 
die Rechengenauigkeit mit Fließkom- 
mazahlen überprüft. Dabei wird in einer 
WHILE...DO-Schleife von einer vorge- 
gebenen Zahl solange der Wert 0,1 
subtrahiert, bis die vorgegebene Zahl 
den Wert O unterschreitet. Dies müßte 
bei einem Startwert 100000 nach 
genau einer Million Substraktionen 
erreicht sein. Wie Bild 2 zeigt, besteht 
der ST-Pascal-Compiler diesen Tast mit 
Bravour. Erst bei Startwert 100000 tre- 
ten merkbare Ungenauigkeiten auf. Der 
MCC-Pascal-Compiler macht bereits 
bei Startwert 100 sichtbare Fehler, bei 
Startwert 100000 wird der Wert O 
bereits nach 990564 Substraktionen 
erreicht. 

Aufgrund dieser Ergebnisse fällt eine 
abschließende Beurteilung leicht. Das 
MCC-Pascal ist teurer, hat den geringe- 
ren Sprachumfang, erzeugt langsa- 
mere Programme und rechnet unge- 
nauer. Auf der Plusseite lassen sich die 
geringere Compilierzeit und der bes- 
sere Editor verbuchen. 

In allen wichtigen Punkten ist jedoch 
der ST-Pascal-Compiler die eindeutig 
bessere Wahl. Trotz des geringeren 
Preises besitzt er neben dem komplet- 
ten Sprachumfang des ISO-Standard- 
Pascal viele wichtige Erweiterungen, 
die die Fähigkeiten des Atari ST besser 
ausnutzen. Auch die Laufgeschwindig- 
keit der erzeugten Programme läßt 
kaum Wünsche offen. Die Abiturreife 
kann ohne Bedenken zuerkannt wer- 
den. (W. Fastenrath/hb) 


APPY® 


17 


Li fi = 
COMPUTER 


Pascal auf dem C 64 


Pascal ist an Universitäten und 
in Software-Häusern gleicher- 
maßen anerkannt. Probleme 
vollständig zu analysieren und 
strukturiert zu programmieren - 
das bringt Pascal Ihnen bei. 


ie von Wirth entwickelte Spra- 

che Pascal lief zunächst nur 

auf Großrechnern. Seinen Sie- 
geszug auf Mikrocomputern trat Pascal 
an, als auf der Universität von California 
in San Diego (UCSD) das berühmte 
UCSD-Pascal entstand. Es ist eine 
Anpassung des Wirth'schen Standard- 
Pascal an einen Mikrocomputer und 
enthält sowohl Einschränkungen als 
auch Erweiterungen. 

Pascal-Versionen für den Commo- 
dore 64 gibt es etwa seit 1983. Dabei 
handelt es sich in der Regel um »Enkel« 
des Wirth'schen Urcompilers, bei 
denen allen man gewisse Abstriche 
machen muß: Sie erzeugen keine 
Maschinensprache für den C64, son- 
dern einen Zwischencode, auch P- 
Code genannt. 


Der Compiler über- 


setzt in P-Code 


Im Gegensatz zur Standard-Sprache 
Basic benutzt UCSD-Pascal einen 
Compiler, der den Pascal-Quellcode in 
P-Code übersetzt. Der P-Code (P steht 
für Pseudo) ist einer wirklichen Maschi- 
nensprache sehr ähnlich. Man kann 
sich diese Sprache als Modell eines 
Computers vorstellen. Es besitzt 
eigene Register, einen Stack, einen 
Heap für dynamische Variablen und 
einen Prozessor, der den P-Code aus- 
führt. Da all dies die Software zuwege 
bringt, die Maschine also nur virtuell 
vorhanden ist, läuft P-Code um einiges 
langsamer als echter Maschinencode. 
Die Laufzeiten liegen dann um etwa 
zwei- bis fünfmal höher als bei echtem 
Maschinencode. 

Man sollte aber die Vorteile dieses 
Verfahrens nicht übersehen. P-Code 
schlägt Basic in der Geschwindigkeit 
immer noch bei weitem (etwa 10 mal so 
schnell). Der erzeugte P-Code ist kom- 
pakter als der übliche Maschinencode 
und benötigt daher weniger Speicher- 
platz. 

Gegenüber Standard-Pascal weist 
KMMM-Pascal einige Funktionen mehr 
auf. Dazu gehört vor allem eine kom- 
plette String-Behandlung. Auch Bit- 
Operationen auf Integer-Variablen sind 


erlaubt. Maschinensprache-Routinen 
können von KMMM aus aufgerufen 
werden. Peek und Poke sind ähnlich wie 
in Basic zu verwenden. 

Das Programm besteht aus einem 
Editor, einem Compiler und einem 
Translator. Der Editor ist ein formatfreier 
Full-Screen-Editorr mit überdurch- 
schnittlichem Komfort (im Vergleich 
zum Basic-Editor). Er besitzt eine Funk- 
tion zur Überprüfung der Syntax und 
belegt alle Funktionstasten. Eine häufig 
benötigte Befehlssequenz kann als 
Makro definiert werden. 

Der KMMM-Editor erzeugt eine 
sequentiele Datei, weshalb auch 
andere Editoren den Programmtext 
bearbeiten können. Danach wird der 
Compiler geladen. Er erzeugt bei 
Bedarf ein Listing auf dem Drucker und 
wandelt das Quellprogramm in P-Code 
um. Nach dem Laden des Translators 
übersetzt dieser nun den P-Code in 
schnelle Maschinensprache. 

Oxford-Pascal unterstützt weitge- 
hend alle Elemente von Standard- 
Pascal. Eine spezielle String- 
Verarbeitung unterblieb. Es verwendet 
statt dessen Variablen vom Typ 
PACKED ARRAY OF CHAR. Dafür ste- 
hen zusätzliche Befehle zum Erzeugen 
von Grafik und Sound bereit. Die Mög- 
lichkeiten des C64 lassen sich also 
auch von Pascal aus nutzen. Der Bild- 
schirm kann sogar in einen Grafik- und 
in einen Textbereich aufgeteilt werden. 
Solche Programme laufen allerdings 
deutlich langsamer. 

Unterstützt werden auch Peek und 
Poke, das Einfügen von Routinen in 
Maschinensprache und die Program- 
mierung der eingebauten Uhr. Ärgerlich 
ist lediglich die zu dünn geratene Doku- 
mentation von etwa 50 Seiten, bei der 
auch noch die Nummerierung der Sei- 
ten und ein Stichwortverzeichnis feh- 
len. 

Die Entwicklung von kleineren Pro- 
grammen gestaltet sich mit Oxford- 
Pascal angenehm. Der Basic-Editor ist 
lediglich etwas erweitert. Ansonsten 
arbeitet man genauso wie mit einem 
Basic-Programm. Der Compiler und das 
übersetzte Programm befinden sich 
gleichzeitig im Speicher. Allerdings feh- 
len in diesem Modus einige Befehle. 
Erst im Disk-Modus verfügt man über 
den gesamten Sprachumfang, muß 
aber dann die Zeit für das Laden des 
Compilers und das Speichern der Pro- 
gramme in Kauf nehmen. 

Oxford-Pascal übersetzt in P-Code. 
Es gibt aber einen Locate-Befehl, der 
eine P-Code-Datei in eine von Basic aus 


ladbare Datei umwandelt. Eine solche 
Datei benötigt dann das Oxford-System 
nicht mehr. 

Profi-Pascal hat gegenüber den obi- 
gen Pascal-Versionen einen entschei- 
denden Vorteil. Der Zugriff auf die 
1541-Floppy geht wegen der zusätzli- 
chen Diskettenroutinen dreimal so 
schnell vor sich. Allerdings wurde die- 
ser Vorteil auch mit einem entscheiden- 
den Nachteil erkauft. Profi-Pascal 
besitzt nämlich praktisch ein eigenes 
Betriebssystem mit Editor, Compiler 
und Hilfsprogrammen. Auf die Kompati- 
bilität zu anderen Programmen und 
Dateien wird damit verzichtet. 

Nach dem Laden erscheint ein Haupt- 
menü, von dem die anderen Programm- 
teile (Editor, Compiler) aus geladen 
werden. Profi-Pascal enthält viele 
zusätzliche Routinen über den norma- 
len Sprachumfang hinaus. So ist bei- 
spielsweise der Zugriff auf den gesam- 
ten Arbeitsspeicher auf sehr elegante 
Weise möglich. Der in Standard-Pascal 
nicht vorgesehene Typ String erlaubt 
die Manipulation von Zeichenketten. 
Der Direktzugriff auf Sätze innerhalb 
einer Datei ist mit der zusätzlichen Pro- 
zedur Seek möglich. 

Als weitere Eigenschaften sind das 
Verketten von Dateien und das Seg- 
mentieren von Programmen zu nennen. 
Programme mit Segment-Prozeduren 
laden einen Teil des Codes während 
des Programmlaufs in den Arbeitsspei- 
cher nach. 

Profi-Pascal besitzt komfortable 
Möglichkeiten, Assembler-Code in das 
Programm einzubinden. Schließlich 
enthält es einen eigenen Assembler. 
Der Pascal-Code selbst wird allerdings 
nicht in Maschinensprache, sondern in 
P-Code übertragen. Nachteilig ist, daß 
der Compiler nur auf der (natürlich 
kopiergeschützten) Original-Diskette ar- 
beiten kann. 


Pascal für Einsteiger 
und Profis 


Eine Pascal-Version für den preiswer- 
ten Einstieg in die interessante Sprache 
ist ganz neu im Markt& Technik Verlag 
erschienen. Es handelt sich dabei um 
einen kompletten Pascal-Kurs in Buch- 
form, der dazu sehr schnell und lei- 
stungsfähig ist und ohne Aufpreis dem 
Buch gleich auf Diskette beiliegt. 
Neben dem Compiler enthält die Dis- 
kette noch viele nützliche Beispielpro- 
gramme. Dieses »Pascal für den C 64« 
nutzt für seine Programme den gesam- 
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ten Speicher des C 64 aus. Ein Full- 
Screen-Editor ermöglicht eine komfor- 
table Programmeingabe. Der Compiler 
akzeptiert den gesamten Standard- 
Sprachumfang mit einigen Erweiterun- 
gen. Das Buch enthält einen Einfüh- 
rungskurs mit vielen Beispielen und 
Übungsaufgaben für den Anfänger 
sowie Tips und Tricks für den Profi. Mit 
gutem Gewissen kann man Buch und 
Compiler als preiswerte Alternative zu 


den bisher bekannten Pascal- 
Versionen für den C64 empfehlen. 
Denn bei diesem Pascal-Compiler gibt 
es trotz des extrem niedrigen Preises 
keinerlei Abstriche an Sprachumfang 
oder Dokumentation. Als Autor von 
Buch und Compiler zeichnet Florian 
Matthes, den wir auch als Autoren für 
den Pascal-Kurs in diesem Sonderheft 
gewinnen konnten. 

Die Entscheidung für einen der vier 


Compiler ist sicherlich nicht einfach. 
Wer einfache Bedienung wünscht, dem 
sei Oxford-Pascal empfohlen. Reine 
Maschinensprache wird nur von 
KMMM-Pascal erzeugt. Profi-Pascal 
wiederum bietet den größten Sprach- 
umfang. 

Und ein C 64-Fan, ob Einsteiger oder 
Profi, wird schließlich mit Markt&Tech- 
nik-Pascal am meisten Spaß haben. 

(Anton Gruber/cg) 


Seit etwas mehr als zwei Jahren 
gibt es einen Pascal-Compiler, 
der auf dem Computermarkt 
Furore gemacht hat: Turbo-Pas- 
cal. Was das Programm alles lei- 
stet, ist schon fast unheimlich. 


ie Gründe für den grandiosen 
Erfolg von Turbo-Pascal sind 
recht einfach nachzuvollzie- 
hen. Da ist zuerst einmal der (damals) 
konkurrenzlos niedrige Preis. In den 
USA kostet Turbo-Pascal etwa 50 Dollar 
- in Deutschland um die 200 Mark. Ein 
Direktimport lohnt sich aber dennoch 
nicht, weil Sie Zoll und Verpackungsge- 
bühren bezahlen müßten, die den 
scheinbaren Preisunterschied wieder 
ausgleichen. 
Einen Pascal-Compiler für 200 Mark 
- das gab es vor Turbo-Pascal nirgends 
auf dem Computermarkt. So fanden 
sich nicht wenige, denen das Risiko 
eines Fehlkaufs klein genug erschien 
und sich aus diesem Grund Turbo- 
Pascal gekauft haben. MS-Pascal von 


Turbo-Pascal: 
der Renner 


Microsoft und Pascal/MT+ von Digital 
Research, die beiden vormals haupt- 
sächlich benutzten Compiler, kosteten 
je nach Betriebssystem zwischen 1000 
und 2000 Mark. Für MS-Pascal gilt dies 
heute noch, während Pascal/MT+ in 
einer Version für den Schneider CPC 
6128 inzwischen auch auf ungefähr 
200 Mark herunterging. Damit zielt es 
direkt auf den Turbo-Pascal-Markt. 
Allein der Preis kann aber dennoch 
nicht für den Erfolg von Turbo-Pascal 
verantwortlich sein. Schließlich gibt es 
heute auch schon Pascal-Compiler ab 
100 Mark (zum Beispiel Nevada- 
Pascal), die trotz ihres günstigen Prei- 
ses eher ein Schattendasein führen. 
Zählen wir also weiter Turbo-Pascal- 
Vorzüge auf: Turbo-Pascal ist ein inte- 
griertes Programmpaket, das aus 


einem Editor, dem eigentlichen Compi- 
ler und einer Laufzeitumgebung be- 
steht. Was das heißt, kann nur jemand 
ermessen, der schon mit anderen 
Compilersprachen gearbeitet hat. Ein 
typischer Arbeitszyklus sieht dort etwa 
so aus: Texteditor laden (meistens wird 


keiner mitgeliefert, also muß Wordstar 
oder ein anderes normales Textpro- 
gramm dafür herhalten), Datei anlegen, 
Text eintippen, Datei speichern, Editor 
beenden und Compiler aufrufen. Dieser 
übersetzt das Programm in Maschinen- 
Quellcode oder einen Zwischencode, 
zum Beispiel den p-Code von UCSD- 
Pascal. 

Hier scheiden sich dann die 
(Compiler-)Geister: Manche benötigen 
einen Assembler, der Maschinencode 
erzeugt, andere einen Linker, der die 
Programm-Module zusammenkettet 
und wieder andere einen Laufzeit- 
Interpreter, der die Programme - ähn- 
lich einem Basic-Interpreter - in der 
Zwischensprache ausführt. Wenn der 
Compiler allerdings einen Fehler mel- 
det, muß der Programmierer wieder mit 
dem Editor heran und die Fehler aus- 
bessern. Stürzt das Programm gar völlig 
ab, geht die Fehlersuche ganz von 
vorne los. 

Ganz anders dagegen arbeitet Turbo- 
Pascal. Der Programmierer gelangt in 
eine Art »Benutzerebene«, von der aus 
er Befehle geben kann. So ruft er mit 
»E« für »Edit« den eingebauten Textedi- 
tor auf. Dieser versteht - Segen für alle 
Wordstar-Freaks - eine Untermenge 
der Wordstar-Kommandos. Er ist aber 
auf das Editieren von Pascal- 
Programmen hin erweitert worden. So 
gibt es eine »Auto-Indent«-Funktion. 
Diese bewirkt, daß der Cursor nach 
Drücken der Enter-Taste nicht an den 
Anfang der nächsten Bildschirmzeile, 
sondern unter den Beginn der letzten 
Programmzeile gesetzt : wird. Damit 
unterstützt Turbo-Pascal wirkungsvoll 
das Prinzip der Texteinrückungen, die 
Pascal-Programme so gut lesbar 
machen. Auch ist der Turbo-Editor ein 
ganzes Stück schneller als Wordstar. 
Beispielsweise führt er den Bildschirm- 
aufbau und die Invertierung von Text- 
blöcken mit Höchstgeschwindigkeit 
durch - auch eine Rechtfertigung für 
»Turbo« im Namen »Turbo-Pascal«. Die- 
ser Geschwindigkeitsvorteil liegt aller- 
dings zum Teil daran, daß der gesamte 
bearbeitete Programmtext im Speicher 
liegen muß, während Wordstar auch 
Diskettentexte bearbeiten kann. Trotz 
dieser Einschränkung eignet sich der 
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Turbo-Editor nebenbei hervorragend 
zur Textverarbeitung. So sind die Block- 
kopierbefehle sogar auf dem CPC 464 
und CPC 664 von Schneider ohne 
Speichererweiterung funktionsfähig. 

Sobald der Benutzer den Pascal- 
Quellcode fertig eingegeben hat, 
drückt er in Wordstar-Manier CTRL-KD 
und gelangt wieder in die Kommando- 
ebene. Dort kann er das Diskettenlauf- 
werk wechseln, neue Disketten anmel- 
den, die Datei speichern und andere 
Dateien laden. »D« gibt ein Directory der 
angemeldeten Diskette aus und hat 
gegenüber dem CP/M-Kommando DIR 
den Vorteil, daß der freie Disketten- 
Speicherplatz mit angezeigt wird. Der 
Benutzer erfährt aus dem Hauptmenü 
auch, wieviel Speicherplatz der Quell- 
text belegt und wieviel Platz noch frei 
bleibt. Mit »C« läßt sich der Compiler 
starten, der das Programm mit extrem 
hoher Geschwindigkeit (»Turbo«) über- 
setzt. Er besitzt jede Menge Fehlermel- 
dungen, die meist sehr informativ sind. 
Sobald er einen Fehler entdeckt, gibt 
Turbo-Pascal die (meistens) passende 
Meldung aus und kehrt direkt in den 
Turbo-Editor zurück. Der Cursor steht 
dann an der Stelle, an der der Fehler auf- 
trat. Wenn der Speicherplatz knapp 
wird, können Sie aber auch die Fehler- 
meldungen aus dem Programm heraus- 
werfen und haben damit etwa 2 KByte 
mehr Speicherplatz zur Verfügung. Alle 
Fehler erscheinen dann nur noch mit 
ihren Nummern, die im - gut gemach- 
ten - Handbuch nachzuschlagen sind. 

Müssen Sie sich mit fehlendem Spei- 
cherplatz herumschlagen (auf dem 
CPC 464 und CPC 664 verbleiben nur 
noch etwa 6 beziehungsweise 8 
KByte), bleiben aber auch noch andere 
Wege, große Programme zu überset- 
zen. Da wären zuerst einmal die 
Include-Files. Das sind Dateien, die 
separat auf der Diskette stehen und 
erst bei der Übersetzung in den Pro- 
grammcode integriert werden. Außer- 
dem läßt Ihnen Turbo-Pascal die Wahl, 
ob der Objektcode des Programms im 
Speicher abgelegt werden soll (Com- 
pile To Memory) oder auf Diskette. Bei 
letzterem können Sie sich zwischen 
dem Dateityp »COM« und »CHN« ent- 
scheiden. Der Unterschied besteht 
darin, daß im ersten Fall das erzeugte 
Programm mit einer Laufzeitbibliothek 
ausgestattet ist. Diese kostet zwar eini- 
ges an Speicher- und Diskettenplatz, 
erzeugt aber Programme, die unabhän- 
gig von Turbo-Pascal arbeiten. 

Die Programme sind - wie bereits 
gesagt - reiner Maschinencode. Die 
8-Bit-Variante von Turbo-Pascal erzeugt 
Z80-Code und ist damit eines der weni- 
gen CP/M-Programme, die nicht auf 
Computern mit 8080/8085-Prozessor 
gestartet werden können, sondern den 


Z80-Chip voraussetzen. Andererseits 
sind die Z80-Erweiterungen sehr lei- 
stungsfähig und bewirken kompakteren 
und schnelleren Maschinencode. 

Was den Programmierer aber wohl 
am brennendsten interessiert, ist der 
Befehlsvorrat des Compilers - ein wei- 
terer Pluspunkt für Turbo-Pascal. Wäh- 
rend viele Pascal-Compiler der niedri- 
geren Preisklassen »Subsets« des 
Sprachstandards sind, also nur Teile 
der Sprache verstehen, ist Turbo- 
Pascal ein »Superset« - und was für 
eines! 

Niklaus Wirth entwickelte Pascal 
eigentlich nur als Lehr- und Unterrichts- 
sprache. Dementsprechend fehlen in 
Standard-Pascal viele nützliche und 
dringend notwendige Dinge. Turbo- 
Pascal wartet mit einer ganzen Menge 
von diesen auf. Da gibt es zum Beispiel 
den Datentyp STRING, den man nun 
nicht mehr durch einen ARRAY OF 
CHAR simulieren muß. Stilgerecht feh- 
len auch nicht die entsprechenden 
Funktionen und Prozeduren zur String- 
behandlung. Selbstverständlich wird 
die Dateibehandlung auf Diskette und 
Festplatte samt Relativ- und Direktzu- 
griffdateien unterstützt. Neu ist auch 
der Datentyp BYTE. 


Für Maschinensprache-Kenner, de- 
nen die Entwicklung von reinen 
Maschinencode-Programmen zu müh- 
sam ist, hält Turbo-Pascal eine Reihe 
von maschinennahen Erweiterungen 
bereit: SHR (Shift Right) und SHL (Shift 
Left) erlauben das Links- und Rechts- 
schieben von Bits in Zahlen und Varia- 
blen. Die Funktionen HI und LO liefern 
das High- und Lowbyte einer Integerva- 
riablen in eine Byte-Variable: 

Program HiLow; 

Var i:Integer; 

Begin 

Readin(i); 
Writeln(Hi(i),' ',Lo(i)); 
End. 

Dieses kleine Beispielprogramm liest 
eine 16-Bit-Zahl von der Tastatur ein 
und gibt deren High- und Lowbyte aus. 

Weitere maschinennahe Funktionen 
sind ADDR zur Ermittlung der Adresse 
einer Variablen und PORT zum direkten 
Zugriff auf die Prozessor-Ports. Das 
Pseudo-Array MEM (»Memory«) simu- 
liert die beliebten PEEK- und POKE- 
Befehle aus Basic. Diese Sprache 
erscheint im Gegensatz zu Turbo- 
Pascal regelrecht archaisch. 

Auf einer vielhöheren Ebene arbeiten 
die Befehle zur Verwaltung dynami- 
scher Variablen, nämlich MARK, RE- 
LEASE und DISPOSE. 
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Natürlich präsentiert sich Turbo- 
Pascal nicht »nackte. Neben dem 
TURBO.COM-File, das mit 31 KByte 
Länge das Hauptprogramm darstellt, 
sowie TURBO.MSG (System-Meldun- 
gen) und TURBO.OVR (ein 2KByte- 
Overlay) findet sich noch MC.PAS, das 
als Demonstration der Leistungsfähig- 
keit des Compilers dient. MC.PAS ist ein 
kleines Tabellenkalkulationsprogramm, 
genannt MicroCalc. Es ist verständli- 
cherweise nicht so leistungsfähig wie 
seine großen Brüder (etwa Multiplan, 
Visicalc oder Supercalc), aber es erfüllt 
seinen Zweck recht gut. Es wurde aller- 
dings auch gar nicht zur »richtigen« 
Arbeit geschrieben, sondern soll viel- 
mehr exemplarisch die Fähigkeiten von 
Turbo-Pascal zeigen. Wenn die Kalkula- 
tionsaufgaben nicht allzu kompliziert 
werden, erspart es trotzdem das Geld 
für die Anschaffung eines anderen Pro- 


gramms. 
Zum Lieferumfang gehört ferner ein 
Programm, das andere Pascal- 


Programme auf dem Drucker auflistet. 
LISTER.PAS erzeugtan den passenden 
Stellen einen Seitenvorschub und kann 
auf Wunsch Zeilennummern in den Text 
einfügen und Pascal-Schlüsselwörter 
unterstreichen. 

Für die Schneider-Computer gibt es - 
gegen Aufpreis, versteht sich - eine 
Grafikerweiterung, die die hervorragen- 
den Fähigkeiten dieser Computer auf 
diesem Gebiet unterstützt. Unter ande- 
rem dient TURTLE.PAS als einfaches 
Zeichenprogramm nach dem Prinzip 
der Logo-Schildkröten-Grafiken. WIN- 
DOW.PAS zeigt, wie das »Fensterln« 
unter Pascal funktioniert. 

Immer mehr Firmen versuchen, sich 
an den Erfolg von Turbo-Pascal anzu- 
hängen und liefern Programmsammlun- 
gen für alle möglichen Anwendungs- 
zwecke. Zum Beispiel werden da Turbo- 
Lader, Turbo-Machine, Turbo-Screen 
oder Tüurbo-Data angeboten. Von 
Heimsoeth-Software, der deutschen 
Vertriebsfirma von Turbo-Pascal, stam- 
men unter anderem Tüurbo-Graphix, 
Turbo-Editor und Turbo-Gameworks. 
Doch aufgepaßt: Turbo-Pascal gibt es 
auch für IBM-Computer unter MS-DOS. 
Viele der Programmpakete arbeiten nur 
unter diesem Betriebssystem und sind 
für CP/M-Benutzer unbrauchbar. Das 
betrifft zum Beispiel auch einige der 
gerade genannten Programme. 

Leider vernachlässigt Borland zur 
Zeit etwas die CP/M-80-Version von 
Turbo-Pascal. So hat die 8-Bit-Variante 
vom »Lifting« in der neuen 3.0-Version 
kaum profitiert, während das MS-DOS- 
Pendant noch weiter verbessert wurde. 
Dennoch: An Turbo-Pascal gibt es nicht 
mehr allzu vielbesser zu machen. Es ist 
einfach schon nahezu perfekt. 

(Martin Kotulla/hg) 


C=Crew 
ım Test 


C-Compiler sind in aller Munde, 
und die Beliebtheit der Sprache 
C steigt ständig. Steigen auch 
Sie ein in diese Supersprache. 
Wir zeigen Ihnen den richtigen 
C-Compiler für den Atari ST. 


as Angebot an C-Compilern für 

den Atari ST wächst: Kein Wun- 

der, denn C ist eine Sprache, 
die das Betriebssystem des Atari ST voll 
unterstützt. Das Betriebssystem wurde 
auch in dieser Sprache verfaßt. 

Da Softwarehäuser C-Programme 
wegen ihrer Portabilität sehr schätzen, 
ist im Lieferumfang des Entwicklungs- 
pakets zum Atari ST auch der C-Com- 
piler von Digital Research enthalten. 

Dieser Compiler, als Teil eines Profi- 
Systems, hat zwar noch einige Fehler, 
aber es läßt sich vernünftig damit arbei- 
ten. Den Heimanwender interessiert 
das System wegen des hohen Preises 
wohl weniger. Atari gibt den Compiler 
leider nur mit dem Entwicklungspaket 
ab - einzeln ist er nicht zu beziehen. 

Es gibt aber inzwischen gute Alterna- 
tiven. Allerdings ist wegen des 
begrenzten Angebots die Auswahl 
noch nicht sehr groß; doch einige Fir- 
men kündigten bereits eigene Compiler 
an, und allzulange werden diese wohl 
auch nicht mehr auf sich warten lassen. 
Für kommende rosige Zeiten unterbrei- 
ten wir Ihnen hier einige Auswahlkrite- 
rien für C-Compiler. 

Als erstes sollten Sie darauf achten, 
wie vollständig die Sprache implemen- 
tiert ist. Mit allen 28 Schlüsselwörtern 
ist der Sprachumfang vollständig. Viele 
Entwickler verzichten jedoch auf das 
eine oder andere Leistungsmerkmal, 
und da muß man sich genau überlegen, 
inwieweit das für die eigenen Zwecke 
tragbar ist. 

Erfahrungsgemäß wächst mit dem 
Wissen auch der Anspruch. Schnell 
stellt man fest, daß der Compiler, der 
noch vor kurzem genügte, für die näch- 
ste Anwendung große Mängel aufweist. 
Man sollte sich vorher genau über das 
Produkt informieren und eventuell 
etwas tiefer in die Tasche greifen, um 
vor einer Enttäuschung sicher zu sein. 


Eine »Einsteigerversion« ist der 
C-Compiler von GST. Er kann nur ganze 
Zahlen verarbeiten und führt keine 
Fließkomma-Arithmetik durch. Damit 
beschränkt sich sein Einsatzgebiet auf 
Systemprogrammierung und weitere 
Anwendungsprogramme, wie Textver- 
arbeitung, Datenbanken und Spiele. 

Natürlich kann man sich die Floa- 
tingpoint-Routinen auch selbst schrei- 
ben, aber es gibt bereits andere C- 
Compiler für den Atari-ST, die nicht viel 
mehr kosten und bereits alles be- 
inhalten. Beim GST-Compiler verzich- 
tete man auch auf die Strukturen (das 
Schlüsselwort »structure« fehlt). Um 
gute Algorithmen zu schreiben, ist man 
aber auf Datenstrukturen, und damit auf 
dieses Schlüsselwort angewiesen. 


Wer etwas tiefer einsteigen möchte in 
die faszinierende Programmiersprache 
C, sollte lieber zum Compiler von Lattice 
greifen. Er ist der einzige, der den kom- 
pletten Sprachumfang von Kernighan 
und Ritchie besitzt. Beim DRI-Compiler 
arbeiten die Funktionen scanf, für for- 
matierte Ausgabe, und getchar, um ein 
Zeichen einzulesen, nicht korrekt. Der 
Lattice-Compiler hat aber wiederum 
andere kleine Fehler. Beim Arbeiten mit 
Fenstern macht er Schwierigkeiten, da 
er eine falsche »Window__handle«- 
Nummer zurückgibt. Ansonsten darf 
man ihn getrost als die zur Zeit beste 
Implementation für den ST bezeichnen. 

Eines der wichtigsten Kriterien für 
einen C-Compiler sind seine Libary- 
funktionen. 

Zum Standard-C 
Standard-Libary. 


gehört eine 
Informationen über 


den Umfang erhält man aus der Sprach- 


beschreibung von Kernighan und Rit- 
chie (siehe Literaturverzeichnis), die 
auch den C-Standard definierte. 

Dieser sogenannte K&R-Standard 
sollte in der Libary auf keinen Fall feh- 
len. 

Wichtig istaußerdem, wie die Zugriffe 
auf GEM und das Betriebssystem gere- 
geltsind. Für die GEM-Programmierung 
selbst bietet der GST-Compiler am mei- 
sten an. Bei den Betriebssystemauf- 
rufen macht er leider große Abstriche. 

Die Libary enthält keine der Funktio- 
nen »gemdoss, »bios« und »xbios«, Son- 
dern lediglich eine kleine Auswahl vor- 
definierter »gemdos«-Funktionen. Für 
den Profi ist das kein Problem: Mit nur 
wenigen Assembler-Kenntnissen kann 
man sich die fehlende Betriebssystem- 
Schnittstelle selber stricken. Dennoch, 
auch diese Einschränkung sollten Sie 
bei einer Kaufentscheidung berück- 
sichtigen. 

Hier schneidet wiederum das Lattice- 
Produkt am besten ab. Seine Libary- 
Funktionen sind außerordentlich um- 
fangreich. 

Zwar nicht ausschlaggebend, aber 
erwähnenswert, bleiben die Extras, wie 
zum Beispiel ein Editor. Der GST- 
Compiler zeichnet sich durch einen 
sehr guten Editor aus. Entscheidender 
aber sind Hilfen zur Fehlersuche. 

Nun kennen Sie alle zur Beurteilung 
eines C-Compilers wichtigen Kriterien. 
Haben Sie alle für Sie wichtigen Punkte 
beachtet, dann lassen Sie sich von der 
Leistungsfähigkeit Ihres C-Compilers 
überraschen. (hb) 


Info: C-Compiler von Digital Research Inc. AtariCorp. (Deutsch- 
land) GmbH, Frankfurter Str. 89-91, 6096 Raunheim, Tel: 
06142/41081. Nur erhältlich mit dem Entwicklungspaket für den 
Atari ST, Preis 969 Mark. 

C-Compiler von GST in Kürze bei Atari erhältlich. Preis zirka 
300 Mark. 

Lattice-C-Compiler von Metacomco. Vertrieb über Philgerma, 
Ungererstr. 42, 8000 München 40, Tel. 089/395551, Preis 380 
Mark. 
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Small-C - 


ein C-Compiler unter CP/M 


C wird in Zukunft immer mehr an 
Bedeutung gewinnen. C verbin- 
det die Eigenschaften einer 
Hochsprache mit denen einer 
Maschinensprache. C-Program- 
me sind sehr schnell. Drei gute 
Gründe für C! Unter CP/M gibt es 
jetzt einen preiswerten Einstieg. 


ist eine Sprache, die in letzter 
® Zeitan Bedeutung gewinnt. Das 

berühmte Betriebssystem Unix 
ist in C geschrieben. Und immer mehr 
kommerzielle Software wird in C ent- 
wickelt. Es gibt einige C-Compiler, die 
unter dem Betriebssystem CP/M lau- 
fen. Stellvertretend für diese präsentie- 
ren wir Small-C, ein Entwicklungs- 
system, das eine umfangreiche Pro- 
grammbibliothek (Quellcode - eben- 
falls in C) mitbringt. 

Das Programmpaket Small-C enthält 
außer dem C-Compiler noch einen 
Makro-Assembler zur Erzeugung von 
relokatierbarem 8-Bit-Objektcode für 
8080/Z80-Prozessoren und einen Lin- 
ker zum Binden einzelner Module zu 
lauffähigen Programmen. Außerdem 
bereichern noch eine Menge hilfreiche 
und gleich mitgelieferte Dienstpro- 
gramme (Tools) dieses Paket. Als 
Hardware-Voraussetzung benötigt man 
das Betriebssystem CP/M und minde- 
stens 56 KByte Hauptspeicher. 

Der Commodore 128 im CP/M-Mo- 
dus findet in diesem Entwicklungs- 
system ein geeignetes Werkzeug, um 
mit der Sprache © die ersten Gehversu- 
che zu unternehmen. Aber auch für alte 
Hasen liefert es eine Menge Anregun- 
gen zum Programmieren. Das gesamte 
Paket ist bis auf ein paar arithmetische 
und logische Funktionen selbst in C 
geschrieben. 


C in € geschrieben 


Der C-Compiler erzeugt aus einem 
C-Quellcode einen Assembler-Quell- 
code und erst dieser wird in einen relo- 
katierbaren Objektcode übersetzt. 
Dazu eignet sich der mitgelieferte 
Small-MAC-Assembler oder der M80- 
Assembler von Microsoft. Der Sprach- 
umfang umfaßt lediglich eine Unter- 
menge der Sprachdefinition nach Brian 
W. Kernighan und Dennis M. Ritchie, 
den Entwicklern der C-Sprache. Die 
Definitionen, Fließkomma-Datentypen 


(float,‚double), sizeof, mehrdimensio- 
nale Arrays, Zeigerarray, Strukturen 
(struct,union), Bit-Felder und casts feh- 
len. Daß aber trotzdem größere Pro- 
gramme erzeugt werden können, zeigt 
das Small-C-Paket selbst. Es sind alle 
Unix-Funktionen implemetiert, soweit 
sie in einer fremden Umgebung 
anwendbar sind. 


Ein-/Ausgabe 


fopen(name, mode) 
freopen(name, mode, fd) 
felose(fd) 

fgetc(fd) 

ungetc(c, fd) 
getchar() 

fgets(str, sz, fd) 
fread(ptr, sz, cnt, fd) 
read(fd, ptr, cnt) 
gets(str) 

teof(fd) 

ferror(fd) 

clearerr(fd) 

fpute(c, fd) 
putchar(c) 

fputs(str, fd) 

puts(str) 

fwrite(ptr ‚sz, ent, fd) 
write(fd, ptr, cnt) 
fflush(fd) 

cseek(fd, offset, from) 
rewind(fd) 

ctell(fd) 

unlink(name) 
rename(old, new) 
auxbuf(fd, size) 
iscons(fd) 

isatty(fd) 

printf(str, arg!, ...) 
fprintf(fd, str, arg], ...) 
scanf(str, arg1, ...) 
fscanf(fd, str, arg!, ...) 


Formatkonvertierung 


atoi(str) 
atoib(str, base) 
itoa(nbr, str) 
itoab(nbr, str, base) 
dtoi(str, nbr) 
otoi(str, nbr) 
utoi(str, nbr) 
xtoi(str, nbr) 
itod(nbr, str, sz) 
itoo(nbr, str, sz) 
itou(nbr, str, sz) 
itox(nbr, str, sz) 


Der Small-MAC-Assembler beinhaltet 
ein ganzes Paket von Programmen. Er 
enthält im einzelnen einen Makro- 
Assembler (MAC), einen Linker (LNK) 
und einen Bibliotheksverwalter (LIB). 
Zusätzlich stehen noch ein Lader 
(LGO), ein CPU-Anpassungsprogramm 
(CMIT) und ein Dump-Programm 
(DREL) zur Verfügung. Der Makro- 


Zeichenketten 


left(str) 

pad(str, ch, n) 
reverse(str) 
streat(dest, sour) 
strncat(dest, sour, n) 
stremp(stri, str2) 
lexcmpistri, str2) 
strncmpl(str1, str2, n) 
strepy(dest, sour) 
strnepy(dest, sour, n) 
strien(str) 

strehr(str, c) 
strrehr(str, c) 


Zeichenklassifizierung 


isalnum(c) 
isalfa(c) 
isascii(c) 
iscntri(c) 
isdigit(c) 
isgraph(c) 
islower(c) 
isprint(c) 
ispunct(c) 
isspace(c) 
isupper(c) 
isxdigit(c) 
lexorder(c1, c2) 


Zeichenumwandlung 


toascili(c) 
tolower(c) 
toupper(c) 


mathematisch 


abs(nbr) 
sign(nbr) 


Programmkontrolle 


calloc(nbr, sz) 
malloc(nbr) 

avail(abort) 

free(addr) 
getarg(nbr,str,sz,argc,argv) 
poll(pause) i 
exit(errkode) 


Tabelle 1. Vollständiges Verzeichnis der Funktionen von Small-C 
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CHG(Change) 
CNT(Count) 
CGPY(Copy) 
CPT(Crypt) 
DBT(Detab) 
EDT(Edit) 
ETB 
FND(Find) 
FNT 


Ersetzen von Zeichenketten in Textdateien 
Zählen von Zeichen, Wörtern oder Zeilen 
Kopieren von Textdateien 

Ver- und entschlüsseln von Dateien 

Ersetzen von Tab-Zeichen durch Leerzeichen 
Zeileneditor 

Gegensatz von DBT 

Suchen von Zeichenketten in Textdateien 
Auswahl von Schriftarten des Epson-FX-80 und 


kompatible Drucker 


FMT(Format) 
LST(List) 
MRG(Merge) 
PRT(Print) 
SRT(Sort) 
TRN(Trans) 


Formatieren (Druck aufbereiten) von Textdateien 
Ausgabe von Textdateien auf den Bildschirm 
Zusammenhängen von zwei sortierten Textdateien 
Drucken von Textdateien 

Sortieren von Textdateien 

Kopiert Textdateien und ändert Zeichenketten 


Tabelle 2. Dienstprogramme für Textverarbeitung und Dateiverwaltung 


Assembler MAC ist ein 2-Pass- 
Compiler zur Erzeugung von verschieb- 
barem Objektcode. Der erzeugte Code 
liegt im Microsoft-8-Bit-Format zur Wei- 
terverarbeitung mit dem Linker LNK 
oder L80 von Microsoft vor. Diese Lin- 
ker verknüpfen einzeln übersetzte 
Module oder solche, die in einer Biblio- 
thek stehen, zu einem lauffähigen Pro- 
gramm, einer sogenannten COM-Datei. 
Auch der Lader ist ein nützliches Hilfs- 
mittel. Er ermöglicht es, Programme an 
eine bestimmte Adresse in den Spei- 
cher zu laden und wahlweise zu starten. 
Damit werden Betriebssystemerweite- 
rungen beim Booten (Kaltstart) instal- 
liert. Der Bibliotheksverwalter (LIB) ver- 
waltet eine Sammlung von verschiebba- 
ren Objektmodulen. In der Tabelle 1 
sehen Sie eine Übersicht aller vorhan- 
denen Funktionen. Die Verwaltung ge- 
schieht mit Hilfe einer Indexdatei. In die- 
ser Datei stehen die Namen und die 
Adressen der Module aus der Biblio- 
thek. Wird nun ein Programm mit dem 
Linker zusammengebunden, so sucht 
der Computer zunächst den Namen in 
der Indexdatei. Bei einem positiven 
Suchergebnis wird das Objektmodul 


aus der Bibliothek an das lauffähige 
Programm angehängt. Der Assembler 
arbeitet mit Maschinen-Instruktions- 
Tabellen, um einen Quellcode zu über- 
setzen. Um den Assembler für ver- 
schiedene Prozessoren (8080/Z80) 
zu verwenden, muß ihm eine solche 
Tabelle zur Verfügung stehen. Das Pro- 
gramm CMIT paßt den Small-MAC- 
Assembler einem bestimmten Prozes- 
sor an, indem er eine Tabelle (es sind für 
beide Prozessortypen die Tabellen in 
Quellform vorhanden) in ein internes 
Format verwandelt und dieses in den 
ausführbaren Small-MAC-Assembler 
kopiert. Das Hilfsmittel DREL erzeugt 
aus jedem Objektmodul eine Liste in 
hexadezimalem Format. Die Ausgabe 
erfolgt im Standardformat. Es kann 
damit nach Belieben in eine Datei, auf 
einen Drucker oder auf den Bildschirm 
ausgegeben werden. 

Neben dem C-Compiler und dem 
Assembler enthält das Entwicklungs- 
system noch viele andere nützliche 
Programme. Sie umfassen folgende 
Funktionen und können nach Belieben 
vom Anwender erweitert werden: 

- editieren, formatieren, sortieren, 


zusammenfügen, listen, drucken, 
suchen, ersetzen, übersetzen, kopie- 
ren und aneinanderfügen, verschlüs- 
seln und entschlüsseln, Leerzeichen 
durch Tabs ersetzen, Tabs durch Leer- 
zeichen ersetzen, Zeichen, Wörter und 
Zeilen zählen, Druckerzeichensatz aus- 
wählen. 

Tabelle 2 listet alle vorhandenen Pro- 
gramme auf. Die Dienstprogramme 
(insgesamt 15) werden nur als Quellda- 
tei geliefert. Sie müssen also erst mit 
Small-C übersetzt und dann assem- 
bliert und zusammengefügt werden. 

Außer den Quellen der Programme 
befinden sich noch verschiedene 
Include-Dateien auf den insgesamt drei‘ 
Disketten, die man beim Kauf bekommt. 
Alles in allem beläuft sich die Anzahl der 
Programme auf den Disketten auf zirka 
100 Dateien. Das deutsche Handbuch 
ist mit 200 Seiten sehr umfangreich 
und geht auf alle Programme sehr aus- 
führlich ein. Die umfassenden Kom- 
mentare bewahren auch den Anfänger 
vor großen Problemen. 

Das Entwicklungssystem Small-C 
bietet, trotz des eingeschränkten 
Sprachumfangs und seiner durch das 
Betriebssystem CP/M bedingten langsa- 
men Diskettenverarbeitung, ein sehr 
gutes Preis/Leistungsverhältnis. Es 
gewährt vor allem dem C-Einsteiger hilf- 
reiche Unterstützung beim Program- 
mieren beziehungsweise beim Erlernen 
von C. Das Small-C wird zusammen mit 
C-Quellcode, Editor, Assembler, Linker 
und Tools zur Textverarbeitung für den 
C 128 und 128 D, den Schneider CPC 
464/664/6128 und den Joyce zum 
Preis von 148 Mark von Markt &Technik 
angeboten. Besitzer des CPC 464/ 
664 benötigen allerdings noch eine 
Speichererweiterung. 


(Günter Langheinrich/cg) 


Forth — die etwas andere 
Programmiersprache 


Wenn man Forth lernen möchte, 
braucht man dazu zweierlei: ein 
Forth-System und ein Buch zum 
Lernen. Der folgende Artikel soll 
Ihnen den Einstieg in Forth 
lediglich erleichtern; wir sagen 
Ihnen, welche Literatur geeignet 
ist und worauf Sie bei einem 
Forth-Compiler für Ihr Compu- 
tersystem achten müssen. 


POP; 


icher haben Sie schon den einen 
oder anderen Artikel über Forth 
gelesen. Dort war häufig die 
Rede von der »umgekehrt polnischen 
Notation«, vom Stackkonzept und von 
Worten wie SWAP, DUP und ROT, die 
dem Uneingeweihten allenfalls ein 
Stirnrunzeln entlocken. Über das 


Wesen der Sprache sagen sie aber 
nichts aus. Warum sich Forth in letzter 
Zeit dennoch zum »Geheimtip« unter 
Programmierern 


entwickelte, hat 


andere Gründe. Forth ist sicher nicht die 
»eierlegende Wollmilchsau«, wie dies 
von manch anderen Programmierspra- 
chen behauptet wird, bietet aber einige 
Vorteile, die eine genauere Betrachtung 
rechtfertigen. Eine Warnung vorweg: 
Forth ist in vieler Hinsicht ungewöhnlich 
und sicher nicht jedermanns Sache. 
Wenn Sie Angst vor den Innereien Ihres 
Computers oder Systemabstürzen 
haben, dann ist Forth nichts für Sie. 
Arbeiten Sie jedoch gern maschinen- 
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nah, um die letzten Feinheiten aus 
Ihrem Computer herauszuholen, und 
können Sie mit Bits und Bytes etwas 
umgehen, dann lesen Sie weiter. 

Allen höheren Programmiersprachen 
ist eins gemeinsam. Damit der Prozes- 
sor, das Herzstück eines jeden Compu- 
ters, versteht, was der Programmierer 
will, muß der Programmtext übersetzt 
werden. Letztlich kann der Computer 
immer nur seinen Maschinencode ver- 
stehen. 

Programmiersprachen lassen sich in 
zwei Kategorien einteilen. Da sind auf 
der einen Seite die Interpretersprachen 
wie Basic, Logo und Comal. Bei diesen 
Sprachen wird ein Programm während 
der Ausführung übersetzt (interpre- 
tiert). Dieses Verfahren hat den Vorteil 
der Interaktion, das heißt, man kann die 
Wirkung eines Befehls oder einer 
Befehlsfolge sofort sehen. Programme 
entwickeln geht also verhältnismäßig 
schnell, und auch die unvermeidliche 
Fehlersuche ist kein Problem. Man läßt 
einfach sein Programm Schritt für 
Schritt ablaufen, um zu sehen, wann 
und wo der Fehler auftritt. Nachteil die- 
ser Methode ist jedoch die geringe 
Ablaufgeschwindigkeit der Programme. 
Schließlich beschäftigt sich der Com- 
puter den größten Teil seiner Rechen- 
zeit mit der Übersetzung und nicht mit 
der Bearbeitung des eigentlichen Pro- 
gramms. Jeder, der einmal ein längeres 
Basic-Programm mit einem entspre- 
chenden Programm in Maschinencode 
verglichen hat, wird dies bestätigen. 

Aus diesem Grund schlägt man bei 
den Compilersprachen wie Pascal, C 
oder Modula einen anderen Weg ein. 
Der Programmtext wird ein einziges Mal 
in Maschinencode übersetzt (compi- 
liert) und kann dann immer wieder aus- 
geführt werden. Das klingt gut, hat aber 
natürlich ebenfalls seine Tücken. So ist 
es ein langer Weg vom Quelltext bis 
zum lauffähigen Programm. Typisch für 
solche Sprachen ist der Dreischritt Edi- 
tor, Compiler, Linker, der sich immer 
wiederholt und viel Zeit kostet. Ein Pro- 
grammfehler wird ja fast immer erst 
ganz am Schluß erkannt, wenn der 
Computer sang- und klanglos abstürzt. 

Forth verbindet die Vorteile von 
Interpreter-- und Compilersprachen, 
also hohe Ablaufgeschwindigkeit und 
interaktive Programmentwicklung. In 
Forth können Sie die Wirkung jedes 
Befehls wie in Basic unmittelbar über- 
prüfen, die Programme laufen jedoch 
zirka zehnmal schneller ab. 

Zudem steht es offen, zeitkritische 
Programmteile mit dem fast immer vor- 
handenen Assembler unmittelbar in 
Maschinencode zu schreiben. Solche 
Routinen sind in der Regel sehr kurz. 
Der Forth-Interpreter/Compiler behan- 
delt sie aber genauso wie alle anderen 
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Forth-Befehle auch; Sie stoßen also auf 
keine SYS- oder CALL-Sequenzen mit 
irgendwelchen unverständlichen Zah- 
len dahinter. 

Forth ist vollkommen strukturiert. Ein 
Programm besteht aus einer Reihe von 
Befehlen, in Forth Wörter genannt, die 
jeweils einzeln entwickelt und getestet 
werden. Jeder so neu erzeugte Befehl 
wird durch seine Definition dem 
Sprachkern hinzugefügt und steht 
damit zur Bildung weiterer Wörter 
bereit. Für Verknüpfungen stehen die 
von Pascal bekannten Kontrollstruktu- 
ren wie IF..ELSE.THEN, BEGIN..WHILE 
„REPEAT, DO..LOOP und so weiter zur 
Verfügung. GOTO und GOSUB fehlen 
ebenso wie Zeilennummern. Die Wörter 
werden einfach durch Nennung ihres - 
hoffentlich sinnvollen - Namens aufge- 
rufen. Das Ergebnis ist ein übersichtli- 
cher, wartungsfreundlicher Code. Das 
lernt man spätestens dann zu schätzen, 
wenn man sich nach einigen Wochen 
oder Monaten ein Programm zur Über- 
arbeitung wieder vornimmt. Haben Sie 
das einmal mit einem schlecht doku- 
mentierten Assemblerprogramm ver- 
sucht, wissen Sie das zu schätzen. 


In der Kürze 
liegt die Würze 


Forth macht nahezu alles möglich, 
insbesondere den Zugriff. auf die 
gesamte Hardware. Viele Sprachen 
schieben da einen Riegel vor, entschei- 
den für den Programmierer, was erlaubt 
ist und was nicht. Forth ist hier genauso 
wie Assembler und bietet übrigens 
auch die gleichen Fehlerquellen. So 
sind Ein-Ausgabe-Bausteine unter 
Forth ebenso leicht zu programmieren, 
wie man sich eigene Speicherverwal- 
tungen abseits von gewöhnlichen 
Variablen oder Arrays zusammenbauen 
kann. Ja, sogar der Forth-Compiler ist 
offen für Veränderungen. Dieser unein- 
geschränkte Zugang verlangt natürlich 
viel Disziplin beim Programmieren. 
Allerdings: Mehr als abstürzen kann Ihr 
Computer auch unter Forth nicht. 

Forth-Programme sind kurz, in der 
Regel sogar kürzer als entsprechende 
Assembler-Programme. Das liegtan der 
Arbeitsweise des Forth-Compilers. Im 
Speicher steht bei jedem Wort nur eine 
Liste mit Adressen der Worte, aus 
denen es sich zusammensetzt. Der 
innerste Kern des Forth-Interpreters - 
übrigens eine Maschinencodesequenz 
von zirka 10 Byte - sorgt für die Abar- 
beitung dieser Liste. Das ist die Grund- 
idee. Natürlich gibt es eine Reihe von 
Feinheiten. So kommt es, daß »nor- 
male« Forth-Systeme mit 300 bis 400 
Befehlen Grundwortschatz nur zirka 10 
bis 20 KByte Speicher benötigen. 


Nachdem wir Ihnen nun den Mund 
hoffentlich ausreichend wäßrig 
gemacht haben, wenden wir uns wie- 
der der eingangs gestellten Frage zu. 
Neben einem Computer braucht man, 
so hieß es dort, ein Forth-System und 
Literatur. Die Frage nach der Literatur 
läßt sich verhältnismäßig leicht beant- 
worten. Es gibt ein für Anfänger wie 
Fortgeschrittene gleichermaßen geeig- 
netes Buch. Es heißt »Starting Forth« 
von Leo Brodie. Eine deutsche Über- 
setzung ist unter dem Namen »Pro- 
grammieren in Forth« im Hanser-Verlag 
erschienen. Das Buch entwickelte sich 
zu so etwas wie einem Standardwerk, 
weil es locker und doch exakt geschrie- 
ben ist. Wer gut Englisch kann, dem sei 
auf jeden Fall die Originalausgabe emp- 
fohlen, weil sich in der deutschen Über- 
setzung, vor allem bei den Programm- 
beispielen, einige Fehler eingeschli- 
chen haben. Man sollte es allerdings 
nicht abends im Bett kurz vor dem Ein- 
schlafen lesen, sondern neben den 
Computer legen und damit arbeiten. 
Auch Forth lernt man, indem man in 
Forth programmiert und nicht beim 
Lesen. 

Womit wir bei der Frage eines Forth- 
Systems wären. Hier läßt sich natürlich 
keine allgemeingültige Lösung ange- 
ben, da es für jeden Computer ver- 
schiedene Versionen gibt. Vor einiger 
Zeit veröffentlichte die Zeitschrift 
»Forth-Dimensions« (von der amerikani- 
schen »Forth Interest Group« herausge- 
geben), eine Art Checkliste für Forth- 
Systeme. Wir bringen zu Ihrer Orientie- 
rung eine deutsche Übersetzung, damit 
Sie wissen, worauf man achten sollte. 
Maximal sind dreizehn Punkte zu verge- 
ben. Systeme mit weniger als sieben 
Punkten dürften Ihnen die Arbeit mehr 
erschweren als erleichtern, von ihnen 
sollten Sie lieber die Finger lassen. 

Die Größe eines Systems entschei- 
det über den Umfang, also die Anzahl 
der Befehle, die im Grundwortschatz 
enthalten sind. Sicher ist die reine 
Länge in KByte kein ausreichendes 
Merkmal, wichtiger ist die Befehlsan- 
zahl. Sie gibt aber doch einigen Auf- 
schluß, ob es sich um eine reine Stan- 
dardimplementation handelt, die mit 
zirka 10 KByte auskommt, oder ob 
etwas Komfort geboten wird. Auch läßt 
sich aus der Länge in etwa beurteilen, 
wie viele der Grundworte in Maschinen- 
code geschrieben sind. Zwar etwas län- 
ger, wirken sie sich aber positiv auf die 
Laufzeit des Systems aus. Trotzdem: 
Seien Sie vorsichtig, wenn Ihnen 
Systeme mit 30 KByte und mehr Länge 
angeboten werden. Diese enthalten 
normalerweise viel überflüssigen Bal- 
last. 

Viel wichtiger ist dagegen der näch- 
ste Punkt. Viele Systeme enthalten 


Zusätze in Form von Quelltexten. Das 
hat zwei Vorteile. Zum einen muß man 
nur die wirklich benötigten Teile laden, 
zum anderen kann man die Quelltexte 
seinen Wünschen anpassen und verän- 
dern. Nebenbei bemerkt lernt man 
bekanntlich aus Beispielen am besten: 
Wem solche Beispiele gleich mitgelie- 
fert werden, der hat es einfacher. 
Zusätze enthalten Programmierhilfen 
wie Decompiler, Einzelschrittracer, 
Assembler und so weiter oder auch fer- 
tige Programme. 


Wie steigt man ein? 


Die nächsten beiden Punkte bezie- 
hen sich auf den Editor. Wir halten dies 
für eins der wichtigsten Hilfsmittel jeder 
Programmiersprache. Schließlich arbei- 
ten Sie beim Programmieren fast aus- 
schließlich mit dem Editor. Sein Komfort 
entscheidet über die Bedienbarkeit 
eines Systems. Entspricht der Editor 
dem in Starting Forth beschriebenen, 
hat das den Vorteil, daß Sie die Bei- 
spiele aus dem Buch leichter bearbei- 
ten können. Ein guter Editor sollte bild- 
schirmorientiert arbeiten, das heißt, 
man kann mit dem Cursor auf dem Bild- 
schirm »umherwandern« und Änderun- 
gen sofort sehen. Der Starting-Forth- 
Editor verfügt über diese Eigenschaf- 
ten von Haus aus nicht, es gibt aber ent- 
sprechend erweiterte Versionen. Ein 
zeilenorientierter Editor ist nur zu emp- 
fehlen, wenn man noch nie mit etwas 
anderem gearbeitet hat. 

Zu den nächsten beiden Punkten: All- 
jährlich treffen sich Forth-Program- 
mierer, die diese Sprache professionell 
nutzen, in Amerika, um über Verände- 
rungen oder Erweiterungen des Forth- 
Sprachkerns zu beraten. Dabei werden 
die Erfahrungen, die sich aus der prakti- 
schen Arbeit mit Forth ergaben, aufge- 
arbeitet und gleichzeitig neue Ansätze 
diskutiert. Wenn Einigkeit über eine not- 
wendige Änderung herrscht, wird ein 
neuer Standard festgelegt. Der letzte 
Standard wurde 1983 beschlossen. 
Davor gab es einen im Jahr 1979. Zwar 
erscheinen die Änderungen - vor allem 
dem Anfänger - häufig spitzfindig. Sie 
sorgen jedoch für eine stetige Weiter- 
entwicklung der Sprache und verhin- 
dern das Auseinanderfallen in verschie- 
dene Dialekte, wie es zum Beispiel bei 
Basic geschehen ist. Ein Programm, 
das nur Standard-Definitionen enthält, 
hat den unschätzbaren Vorteil, daß es 
unabhängig vom verwendeten Compu- 
ter läuft. So lassen sich Programme für 
die verschiedensten Computer unter- 
einander austauschen, jeder kann von 
Erfahrungen anderer profitieren. Die 
folgenden Punkte beziehen sich auf die 
Beschreibung und Unterstützung Ihres 
Systems. Eine Beschreibung ist uner- 


läßlich, denn jedes Forth-System ver- 
fügt über eine Reihe von systemspezifi- 
schen Erweiterungen. Der Standard 
legt nur zirka 150 Worte fest, ein übli- 
ches Forth-System enthältaber 300 bis 
400 Worte. Darüber hinaus sind häufig 
Besonderheiten und Zusätze einge- 
baut, die man natürlich nur mit einer ver- 
nünftigen Beschreibung ausnutzen 
kann. Diese sollte auch Informationen 
darüber enthalten, wie der Compiler 
arbeitet, welchen Speicher das System 
benutzt und so weiter. Je mehr Sie über 
Ihr Forth-System wissen, desto besser, 
auch wenn Sie mit den Informationen 
zunächst nicht viel anfangen können. 
Von einem guten Händler können Sie 
auch erwarten, daß er auf Ihre Fragen 
und Probleme eingeht. 

Die letzten Punkte der FIG-Check- 
liste behandeln spezielle Erweiterun- 
gen. Ein Assembler sollte zur Grund- 
ausstattung jedes Systems gehören; 
ein Fließkommapaket wird man dage- 
gen nur selten brauchen. Forth arbeitet 
aus Geschwindigkeitsgründen fast 
ausschließlich mit Integerarithmetik. 
Sogar trigonometrische Funktionen, 
wie man sie für grafische Anwendun- 
gen häufig braucht, lassen sich ohne 
Fließkomma programmieren. Zugriff auf 
ein File-System sollte möglich sein, weil 
es sonst schwierig wird, von Forth aus 
auf Files einer Textverarbeitung oder 
einer Tabellenkalkulation zuzugreifen. 
Forth selbst arbeitet normalerweise 
direkt auf Diskette, mit physikalischem 
Zugriff ohne File-System. 


Wo bekommt man 
ein Forth-System? 


Die verschiedensten Firmen bieten 
Forth an, zum Teil zu horrenden Preisen. 
Dabei muß der Preis kein Qualitäts- 
merkmal sein, im Gegenteil: Einige der 
besten Forth-Compiler sahen ihre Auto- 
ren als »public domain« (also der Allge- 
meinheit kostenlos zugänglich), was 
manche Vertreiber nicht davon abhält, 
sich die Anpassung auf ein spezielles 
Computersystem teuer bezahlen zu las- 
sen. Den geringen Umsatz versucht 
man dann über hohe Preise auszuglei- 
chen. 

Es gibt in Deutschland einen »Ab- 
leger« der »Forth Interest Group«, die 
»Forth Gesellschaft eV.« in Hamburg. 
Sie setzt sich als Aufgabe die Verbrei- 
tung der Programmiersprache Forth. 
Die Gruppe arbeitet nicht kommerziell, 
sondern finanziert sich aus Beiträgen 
und Spenden. Dort kann man sich über 
Forth-Systeme für die verschiedenen 
Computer informieren, auch werden 
Bezugsquellen genannt. Es existiert 
auch eine Sammlung der verschieden- 
sten Artikel über Forth, die man sich 


gegen Unkostenerstattung kopieren 
lassen kann. Für Mitglieder erscheint 
eine Zeitung namens »Vierte Dimen- 
sion«, die zweimonatlich erscheint. Wer 
sich an die Forth-Gesellschaft wenden 
möchte, kann dies unter folgender 
Adresse tun: 

Forth-Gesellschaft eV. 

Schanzenstr. 27 

2000 Hamburg 6 

Zum Abschluß noch ein Bonbon: Für 
den Commodore 64 und den Atari ST 
gibt es das »volksFORTH-83«, ein 
Forth-System, das von Mitgliedern der 
Forth-Gesellschaft geschrieben wurde 
und ebenfalls »public domain« ist. Es 
handelt sich um eins der besten Forth- 
Systeme, die es gegenwärtig gibt: Es 
entspricht vollständig dem 83'er- 
Standard, enthält Fullscreen-Editor, 
Assembler und eine Fülle von Tools, 
angefangen vom Decompiler bis hin zu 
einem Grafik-Paket. Das System ist 
multi-tasking-fähig, das heißt mehrere 
Programme können gleichzeitig ablau- 
fen. Der Quelltext ist einschließlich des 
System-Quelltextes verfügbar und das 
System frei kopierbar. Die Weitergabe 
ist sogar ausdrücklich erwünscht. Wen 
es interessiert, kann es auch bei der 
Forth-Gesellschaft zu einem Selbstko- 
stenpreis von 45 bis 65 Mark kaufen; 
man erhält dann - je nach Computersy- 
stem - mehrere Disketten mit sämtli- 
chen Quelltexten sowie ein 200-sei- 
tiges Handbuch. Derzeit sind Versionen 
für Z80-, 8080- und 8068-Prozesso- 
ren in Arbeit. Nach der FIG-Checkliste 
erhält »volksForth-83« 12 von 13 mögli- 
chen Punkten. 

Ebenfalls erwähnen wollen wir das 
F83 von Henry Laxen und Michael 
Perry. Auch hierbei handelt es sich um 
ein »public domain«-System nach dem 
83'er-Standard. Es sind auch sämtliche 
Quelltexte zum System und allen Erwei- 
terungen zu erhalten. F83 gibt es für 
8080-, 8086- und 68000-Prozesso- 
ren. Bei der Forth-Gesellschaft erhalten 
Sie auf jeden Fall eine Version für den 
IBM-PC und kompatible Rechner. Zum 
F83 liegt keine Dokumentation vor. 
Statt dessen enthält die Version für 
jeden Quelltext Kommentarscreens. 
Auch dieses System erhält laut Checkli- 
ste 12 Punkte. 

Es steht nun nichts mehr im Wege, 
eigene Erfahrungen zu sammeln. 
Beschaffen Sie sich Starting Forth und 
ein Forth-System, und setzen Sie sich 
eine Woche oder sagen wir bis zum 
dreißigsten Systemabsturz an Ihren 
Computer. Entweder werfen Sie dann, 
dem Wahnsinn nahe, alles in die Ecke, 
oder aber die Faszination dieser Spra- 
che hat Sie gepackt und läßt Sie so 
schnell nicht mehr los. 


(Dietrich Weineck/hg) 
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Sie wollten schon immer wissen, 
was es mit der vielgerühmten 
strukturierten Programmierung 
in Pascal auf sich hat? Oder 
besitzen Sie gar einen Pascal- 
Compiler für Ihren Computer? 
Dann nehmen Sie sich ein wenig 
Zeit, und studieren Sie folgen- 
den Artikel. 


ur Eingabe eines Pascal-Pro- 

grammes, zur Übersetzung und 

zur Fehlerkorrektur müssen Sie 
spezielle Hilfsprogramme benutzen, 
deren Bedienung natürlich an dieser 
Stelle nicht beschrieben werden kann. 
In diesen Fällen hilft ein Blick in die 
Handbücher, die mit jedem Compiler 
geliefert werden. 

Die grundlegenden Eigenschaften 
der Spache Pascal lassen sich am ein- 
fachsten an einem konkreten Beispiel- 
programm erläutern (Listing 1). Am 
besten lesen Sie zunächst einmal den 
gesamten Programmtext durch. Über- 
legen Sie sich für jede Zeile, welche 
Bedeutung die Anweisungen haben 
könnten. Auch ohne Kenntnisse in Pas- 
cal werden Sie erkennen, daß dieses 
Programm vom Benutzer die Eingabe 
einer Folge von Zahlen erwartet, über 
die eine Summe gebildet und gedruckt 
wird. 

Auf den ersten Blick fällt bereits die 
stufenförmige Einrückung der Zeilen 
auf. Sie ist jedoch neben den Kommen- 
taren zwischen »(*« und »*)« das ein- 
zige an einem Pascal-Programm, das 
keinerlei Bedeutung bei der Überset- 
zung des Programms besitzt. Genauer 
gesagt, betrachtet der Compiler ein 
Pascal-Programm als eine lange Folge 
von Symbolen (Sonderzeichen und Na- 
men), die beliebig durch Leerzeichen 
oder Zeilenenden getrennt sein kön- 
nen. Im Prinzip könnte man also ein 
Pascal-Programm als einen riesigen 
Bandwurmsatz in eine einzige Zeile 
schreiben. Andererseits sind die Ein- 
rückungen, Leerzeilen und Kommen- 
tare die einzige Orientierungshilfe für 
den menschlichen Leser, um die teil- 
weise komplex geschachtelten Schlei- 
fen und Abfragen in einem Programm 
auf einen Blick zu erkennen, so daß 
man einen »guten« Programmierstil 
bereits am systematischen Layout 
erkennt. 

Es folgt also, daß man sich bei der 
Programmierung nicht auf eine »logi- 
sche« Einrückung des Textes verlassen 
darf, sondern vielmehr durch die Ver- 


he SUMME (INPUT, OUTPUT 
DA 


ERSTE PASCALPROGRAMM zur UEBUNG *%) 


consk ANZAHL = 4; 
SUMME,X : REAL; 
I : INTEGER; 
BEGIN 
WRITELN( ' Geben Sie bitte 
SUMME: = 0.0; 
FOR I:= 1 TO ANZAHL DO 
BEGIN 


READ( X); SUMME: = SUMME + X 


WRRITELN(' Die Summe betraegt ’, 
WRITELN(Ü' Der Durchschnitt ist 
END. 


PROGRAM Name (INPUT, OUTPUT); 


CONST Konstantendeklarationen 
VAR Variablendeklarationen 


PROCEDURE / FUNCTION Unterprogramm 


deklarationen 


BEGIN 
Anweisung; Anweisung; ... 
END. 
Bild 1. Der prinzipielle Aufbau eines 
Pascal-Programmes 


wendung von Sonderzeichen und Inter- 
punktionszeichen (Semikolon, Punkt, 
Komma) die Interpretation des Pro- 
grammes steuern muß. 

Neben den Sonderzeichen besteht 
ein Programm aus Wörtern. Dabei 
unterscheidet man zwischen reservier- 
ten Schlüsselwörtern (Wortsymbolen) 
und frei wählbaren Namen. Schlüssel- 
wörter haben eine feste syntaktische 
Bedeutung und können nicht als 
Namen zum Beispiel für Variablen (wie 
SUMME) verwendet werden. Tabelle 1 
zeigt die kurze Liste der reservierten 
Schlüsselwörter in Pascal. In den fol- 
genden Artikeln werden Sie die Bedeu- 
tung der meisten dieser Wörter kennen- 
lernen. 

Namen in Pascal bestehen aus einem 
Buchstaben, dem eine beliebige Reihe 
von Buchstaben oder Zahlen folgt. 
Jeder Pascal-Compiler berücksichtigt 
mindestens die ersten acht Zeichen 
eines Namens, so daß Sie Namen nicht 
wie in Basic auf zwei Zeichen Länge 
verstümmeln müssen. Da in Pascal 
nicht nur Variable, sondern auch Uhnter- 
programme, Konstanten und Typen mit 
Namen versehen werden, sollte man 
bei der Namensgebung möglichst 
systematisch vorgehen, um aus diesen 
Namen auf die Bedeutung schließen zu 
können. 

Beispiele für sinnvolle und erlaubte 
Namen sind: ANFANGSBUCHSTABE, 
ENDEZEICHEN, GRENZE, FEHLER. 

Nachdem Sie jetzt einen Überblick 
über die Einzelteile (Symbole) eines 


", ANZAHL, ' 


SUMME); 
‚SUMME / ANZAHL) 


Zahlen ein!'); 


Listing 1. 

Dieses Pascal-Programm 
berechnet Summe 

und Querschnitt 


FILE 

FOR 
FORWARD 
FUNCTION PACKED 
PROCEDURE 
PROGRAM 
RECORD 
REPEAT 
SET 

THEN 


Tabelle 1. 
Pascal 


Reservierte Wörter in 


Pascal-Programms besitzen, wenden 
wir uns nun dem Zusammenbau dieser 
Elemente zu einem vollständigen Pro- 
gramm zu. Jedes Programm hat die in 
Bild 1 gezeigte Struktur: 

- Programmkopf 

- Deklarationen 

- BEGIN 

- Anweisungen 

- END 

Im Rahmen dieses Artikels besteht 
jeder Programmkopf aus dem Schlüs- 
selwort PROGRAM, einem Namen und 
der Parameterliste (INPUTOUTPUT). 
Die Namen INPUT und OUTPUT zeigen 
an, daß im Programm Eingaben von der 
Tastatur und Ausgaben an den Bild- 
schirm vorkommen können. 

Der nachfolgende Deklarationsteil 
definiert alle Namen, die im Programm 
verwendet werden. Grundsätzlich gilt in 
Pascal die Regel, daß die Definition 
eines Namens im Programm-Text vor 
der Anwendung des Namens in einer 
anderen Definition oder in einer Anwei- 
sung stehen muß. Dadurch können 
Pascal-Programme in einem einzigen 
Durchlauf (one pass) compiliert wer- 
den, da vor jeder Anwendung eines 
Namens der Compiler alle Informatio- 
nen über einen Namen bereits gelesen 
hat. 

In dem Beispielprogramm in Listing 1 
wird zum Beispiel eine Konstante AN- 
ZAHL mit der Deklaration 
CONST ANZAHL = 4 
definiert. Immer wenn im nachfolgen- 
den Programm-Text der Name ANZAHL 
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auftritt, wird die Konstante 4 compiliert. 
Außerdem würde der Compiler eine 
Zuweisung an diese Konstante, bei- 
spielsweise mit »ANZAHL := 39«, als 
Fehler erkennen. Dies ist einer der vie- 
len Vorteile der expliziten Deklaration 
von Namen: Der Compiler schützt den 
Programmierer vor der falschen oder 
doppelten Verwendung eines Namens. 
Wer sich schon einmal durch ein größe- 
res fremdes Programm gekämpft hat, 
wird auch wissen, daß die Abfrage 

IF ANZAHL=MAXIMALANZAHL THEN... 
verständlicher ist als 

IF A=49 THEN... 

Nicht zuletzt erlaubt die Verwendung 
von Konstanten eine einfache Ände- 
rung bestehender Programme. Soll das 
Programm in Listing 1 später einmal 
acht Zahlen summieren, so genügt die 
einmalige Änderung der Konstanten 
ANZAHL, wodurch sowohl die Ober- 
grenze der FOR-Schleife als auch die 
Division bei der Durchschnittsbildung 
angepaßt wird. 

Das Programm SUMME enthält noch 
eine weitere Form von Deklarationen: 
VAR SUMME, X: REAL; 

I : INTEGER; 

Hinter dem Schlüsselwort VAR wer- 
den alle Variablen des Programms mit 
ihrem Typ (zum Beispiel INTEGER) auf- 
geführt. Der Typ einer Variablen gibt an, 
welche Werte eine Variable annehmen 
darf (zum Beispiel Zahlen oder Zei- 
chen). Während in Basic der Typ einer 
Variablen aus dem Namen hervorgeht 
(A$, A%, A), wird in Pascal der Name 
eines Typs bei der Deklaration angege- 
ben. Zunächst wollen wir uns auf die 
vordefinierten Standard-Typen be- 
schränken: 

REAL: Dieser Typ umfaßt die reellen 
Zahlen (zum Beispiel +1.0, 0.0, -1.2, 
2.3E-4). 

INTEGER: Werte vom Typ INTEGER 
sind ganze Zahlen aus einem 


PROGRAM GESCHWINDIGKEITSTEST (INPUT, 
CONST LETZTERDURCHLAUF = 10000; 


; INTEGER; 
: REAL; 
ZAEHLER: INTEGER; 
BEGIN 


OUTPUT); 
(* WIEDERHOLE SCHLEIFE SO OFT *) 


WRITELN(' INTEGER-Schleife gestartet!'); 


X1:= 0; 


FOR ZAEHLER: = 1 TO LETZTERDURCHLAUF DO X1:= X1+1; 
WRITELN(' INTEGER-Schleife beendet!'); 
WRITELN(' REAL-Schleife gestartet!'); 


X2:= 0; 


FOR ZAEHLER: = 1 TO LETZTERDURCHLAUF DO X2:= X2+1; 
WRITELN(' REAL-Schleife beendet!'); 


END. 


Listing 2. Ein Geschwindigkeitsvergleich zwischen REAL und INTEGER 


beschränkten Intervall. Typischerweise 
sind dies die Zahlen zwischen -32768 
bis 32767. 

CHAR: Eine Variable vom Typ CHAR 
kann ein einzelnes Zeichen, wie »A«, »!« 
oder »4« speichern. 

BOOLEAN: Dieser Typ ist Ihnen 
sicherlich nicht ganz so vertraut wie die 
übrigen Standard-Typen. Er umfaßt 
nämlich nur die logischen Werte »wahr« 
(TRUE) und »falsch« (FALSE). So liefern 
zum Beispiel Vergleiche ein Ergebnis 
vom Typ BOOLEAN. Mit booleschen 
Werten kann man über die logischen 
Operatoren UND, ODER und NICHT 
(AND, OR, NOT) »rechnen«, und die 
Ergebnisse in einer Variablen spei- 
chern: 


27=13 (FALSE) 
12>4 (TRUE) 
a'<'B! (TRUE) 
'A'zta! (FALSE) 


(A=B) OR (X=Y) 
RICHTIG := ERGEBNIS = LOESUNG 
FALSCH := NOT (RICHTIG) 

Die letzten beiden Zeilen verwenden 
zwei boolesche Variablen RICHTIG und 
FALSCH, die mit 
VAR RICHTIG, FALSCH: BOOLEAN; 
deklariert werden müssen. Diese Bei- 
spiele machen auch den Unterschied 
zwischen dem Vergleichsoperator »=« 
und dem Zuweisungsoperator »:=« 
deutlich. Mit »ERGEBNIS = LOE- 
SUNG« wird der Inhalt der Variablen 
ERGEBNIS mit dem Inhalt der Variablen 
LOESUNG verglichen. Stimmen beide 
überein, so liefert der Vergleich das 
Ergebnis TRUE. Um einer Variablen 
einen neuen Wert zuzuweisen, verwen- 
det man den Zuweisungsoperator »:=«. 
Typische Beispiele sind: 

I:= I+l 
ERGEBNIS:= SIN(X)+COS(X) 
LOESUNG:= AXB - C#D + 23.0 

Zur Verdeutlichung der Wirkung der 
booleschen Operatoren enthält Tabelle 
2 eine sogenannte Wahrheitstabelle, 
die zum Beispiel angibt, daß falsch und 
wahr gleich falsch ist (FALSE AND 
TRUE = FALSE). 

Warum unterscheidet man aber zwi- 
schen den Typen REAL und INTEGER? 
Für einen Computer ist es wesentlich 
einfacher, mit ganzen Zahlen zu rech- 
nen oder zu zählen, als Fließkomma- 
Arithmetik mit reellen Zahlen durchzu- 
führen. Außerdem lassen sich Zahlen 
vom Typ INTEGER wesentlich kompak- 
ter als REAL-Zahlen speichern. Das 
bedeutet für die Praxis, daß man nur in 
Ausnahmefällen Variablen vom Typ 
REAL deklariert, und zwar nur dann, 
wenn sehr große Zahlen verarbeitet 
oder Nachkommastellen dargestellt 
werden müssen. Bei einer genaueren 
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Anweisungen in Pascal et 


einfache 
Anweisungen 
Pi r- 


Untersuchung der meisten Programme 
wird man jedoch feststellen, daß die 
Mehrzahl der Variablen nur zum Zählen 
in Schleifen, als Indizes in Tabellen oder 
für ähnliche Steuerungsaufgaben be- 
nutzt werden, in denen INTEGER-Zah- 
len völlig ausreichen. Wer einen Com- 
puter zur Verfügung hat, sollte sich den 
erheblichen Geschwindigkeitsunter- 
schied zwischen Operationen mit gan- 
zen und reellen Zahlen am Beispielpro- 
gramm in Listing 2 verdeutlichen. 

Zum Abschluß dieses kleinen Exkur- 
ses über die Standard-Typen in Pascal 


soll noch ein weiterer Begriff geklärt 


werden, der Ihnen bei der Lektüre eines 
Pascal-Lehrbuches oder in Fehlermel- 
dungen des Compilers häufiger begeg- 
nen wird: Ein »skalarer Typ« ist ein Typ, 
dessen Werte einzeln aufzählbar sind 
und der nicht in einfachere Typen zer- 
legt werden kann. 

INTEGER, CHAR und BOOLEAN 
sind beispielsweise skalare Typen. 
Reelle Zahlen oder Mengen haben kei- 
nen skalaren Typ. Später werden 
Anwendungen genannt, in denen nur 
Werte eines skalaren Typs auftreten 
dürfen. An solchen Stellen sind also nur 
ganze Zahlen, nicht aber reelle Zahlen 
zu verwenden. 


Anweisungen und 
Blockstruktur 


Jetzt können wir uns dem Anwei- 
sungsteil eines Pascal-Programms 
zuwenden, der definiert, was mit den 
Objekten geschieht, die im Deklarations- 
teil vereinbart wurden. Bild 2 zeigt einen 
Überblick über alle Arten von Anwei- 
sungen, die nachfolgend beschrieben 
sind. 

Die Philosophie der sogenannten 
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PROGRAM ZUWEISUNGEN ( INPUT, 
VAR R: REAL; 

I: INTEGER; 

B: BOOLEAN; 

C: CHAR; 


I 


R: = 3. 141592653; 

R: = SQR(CSINER)) + SQRLCOS(R)); 
I:= 0; 

I:= I+1; 

SIE IR 50 Hr Su la 

I:= 13 DIV 4; 

I:= 13 MOD % 

R:= ABS(R); 

I:;= ABS(T); 

CH: ='A'; 


CH: = CHR(65); 


I:= ORDU'A'); 


B:= (I<c>4); 
B:= B OR NOT B; 
END, 


strukturierten Programmierung, die ja 
bekanntermaßen der Sprache Pascal 
zugrunde liegt, verbirgt sich in dem 
Zweig mit der Bezeichnung »Zusam- 
mengesetzte Anweisungen« Jede 
zusammengesetzte Anweisung kann 
aus einer Vielzahl verschiedener (even- 
tuell ebenfalls zusammengesetzter) 
Anweisungen bestehen. Man kann sich 
eine Anweisung als einen Block vorstel- 
len, der einen Eingang und einen Aus- 
gang besitzt. Ist ein Block eine zusam- 
mengesetzte Anweisung, so enthält er 
kleinere Blöcke mit je einem Eingang 
und Ausgang, die nach festen Regeln 
geschachtelt werden. So kann jeder 
Block als eine Einheit betrachtet wer- 
den, ohne die umgebenden Böcke zu 
kennen. Das mag etwas abstrakt klin- 
gen, aber das Bild einer Blockstruktur 
ist zur Verdeutlichung der Schachtelun- 
gen recht anschaulich. 

Einfache Anweisungen: Dies sind 
die elementaren Bausteine, aus denen 
der Anweisungsteil besteht. Die wich- 


OUTPUT); 


Listing 3. Mögliche Formen der Zuweisung in Pascal 


(*% PI ist eine reelle Zahl *) 
iR = Re, *) 


(* vorwaerts zaehlen “) 
(* Ergebnis ist ganze Zahl *) 
(* Division mit Rest -> I=3 %*%) 


(* Divisionsrest -> I=1 *) 
(* Absolutwert vom Typ REAL *) 
(* dsgl. vom Typ INTEGER *) 
(* nur einzelne Zeichen ! ”) 


(* CHR liefert das Zeichen *) 
(% mit dem Code 65, das ist %*) 
(* der Buchstabe 'A' *) 
(* ORD wirkt genau umgekehrt, *) 
(% also ist danach I= 65 *) 
(* TRUE, falls I«>4 *) 
(* Immer richtig (TRUE)! *) 


tigste Form der einfachen Anweisun- 
gen hatten wir bereits kennengelernt: 
Eine Zuweisung besteht aus dem 
Namen einer Variablen, dem Zuwei- 
sungsoperator »:=« und einem Aus- 
druck. Das Programm in Listing 3 zeigt 
Ihnen eine Vielzahl von Beispielen für 
Zuweisungen in Pascal. Sie werden 
feststellen, daß sich die Ausdrücke von 
ihren Gegenstücken in Basic oder Fort- 
ran nur unerheblich unterscheiden. Sie 
haben also nicht eine so extravagante 
Form wie in C oder gar in Forth. Natür- 
lich gilt auch in Pascal die Regel »Punkt- 
vor Strichrechnung«. 

Bitte achten Sie darauf, daß der Typ 
des Ausdruckes auf der rechten Seite 
des »:=« mit dem Typ der Variablen vor 
dem »:=« verträglich ist. Daß man einer 
Variablen vom Typ CHAR keine Zahl 
zuweisen kann, ist wohl selbstverständ- 
lich. Jedoch ist es auch nicht möglich, 
einer Variablen vom Typ INTEGER 
direkt eine reelle Zahl zuzuweisen. Man 
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muß vielmehr angeben, was mit den 
eventuell vorhandenen Nachkomma- 
stellen geschieht. Hierzu dienen die 
Standardfunktionen TRUNC und 
ROUND, die Nachkommastellen einer 
reellen Zahl abschneiden oder zur 
nächsten ganzen Zahl aufrunden 
(Tabelle 3). 


} TRUNC( X): ROUND(X) 
Hain nn + 
' 1 
1 
f 


Tabelle 3. Die Wirkung von 
TRUNC und ROUND 


Wie bestimmt man aber den Typ eines 
Ausdrucks? Dazu stellt man zunächst 
die Typen der Konstanten und Variablen 
(aus dem Deklarationsteil) fest. Eine 
Zahl ohne Dezimalpunkt und Exponent 
ist vom Typ INTEGER: 

Beispiele: 

1 0 -8 100000 

(Zahlen vom Typ INTEGER) 
1.2 1E-4 127,4 
(Zahlen vom Typ REAL) 

Wird eine reelle Zahl mit einer ganzen 
Zahl verknüpft, so erhält man als Ergeb- 
nis eine reelle Zahl. Indem man schritt- 
weise (unter Beachtung der Prioritäten 
und Klammern) den Ausdruck auflöst, 
entsteht der Ergebnistyp. 

Beispiele: 
A:= 1000 * (1000 + 4) 
B:= 1000 * (1000 + 4.0) 

Da der Wertebereich INTEGER meist 
nur Zahlen kleiner oder gleich 32768 
darstellen kann, würde bei der Ausfüh- 
rung der ersten Zuweisung ein Überlauf 
eintreten. Durch die Addition von 4.0 
(vom Typ REAL) ist jedoch im zweiten 
Fall das Ergebnis (B) vom Typ REAL und 
somit noch darstellbar. 

Tabelle 4 gibt einen Überlick über die 
möglichen Operatoren in Pascal mit 
konkreten Beispielen. Außergewöhn- 
lich ist nur die Tatsache, daß die logi- 
schen Operatoren AND und OR stärker 
binden als die Vergleichsoperatoren 
(>,<,=,<>). Diese Einheit muß bei 
der Formulierung von Bedingungen 
(zum Beispiel bei IF-Anweisungen) 
durch eine korrekte Klammerung 
beachtet werden: 

Beispiel: 

IF (A=B) OR (C=D) THEN... 
und nicht 

IF A=B OR C=D THEN... 

(Beim zweiten Ausdruck würde zu- 
nächst »BOR C«berechnet, das Ergeb- 
nis mit A verglichen, das Resultat (vom 
Typ BOOLEAN) schließlich mit D vergli- 
chen werden, was wohl nicht beabsich- 
tigt war.) 
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Identitaet 
I - (Vorz.)ı Vorzeichenwechsel 
+ ı" Addition 
| Vereinigungsmenge 
Ye FB, al 
ı Subtraktion 
ı Differenzmenge 
N, 38 > 5) 
| Multiplikation 
ı Scehnittmenge 
PERLE AIR 5] 
ı Division mit Rest 
ı Divisionsrest 
'normale' Division 


! gleich 'A'='a' [(1,2,31=[] 

"Otto' = "Anna 

ı ungleich (analog) 

kleiner 

ı groesser "Otto'>'Anna' 
ı groesser oder gleich 


Test auf Obermenge [1,2,3]>=L[1] 


‘ 

' 
7 DIV 3 C=2) | 
7 DIV 3 dei] \ 
14% (=D.252\ 
Seren Zeessmessaegassne hen 


(alle FALSE) 


"A'<'B' (= TRUE) 
(=TRUE) ı 


ı INTEGER, 
ı INTEGER, 
ı INTEGER, 
ı Mengen 


| wie Operand 
| wie Operand 
| wie Operand 
ı Menge \ 


ı  INTEGER, 
ı Mengen 


' ' 
| wie Operand ı 
ı Menge i 


ı 
‘ 
ı INTEGER, 


I! wie Operand 
ı Mengen H 


| Menge 


INTEGER 
INTEGER 
INTEGER, 


ı INTEGER 
INTEGER 
ı REAL (immer)! 


| Skalar, Pointer; BOOLEAN 


Menge, String 

Skalar, Pointer! BOOLEAN 
ı Skalar, BOOLEAN 
Skalar, BOOLEAN 
ı Skalar, BOOLEAN 
ı Menge BOOLEAN 


String 
String 
String 


(= TRUE) 


kleiner oder gleich 

ı Test auf Teilmenge 

v E23 II 

| Test auf Enthaltensein 
33 IN [1,.40)] 


nicht NOT FALSE 


(=FALSE) 


(=TRUE) 
(=TRUE) 
ı und (1>9) AND (J>I) (=FALSE) 
| oder (A=B) OR (A<>B) (=TRUE) 


| Skalar, 
ı Menge 


String ı BOOLEAN 

ı BOOLEAN 

Skalar und BOOLEAN 
ı Menge 

BOOLEAN 

ı BOOLEAN 

BOOLEAN 


ı BOOLEAN 
BOOLEAN 
BOOLEAN 


Tabelle 4. Operatoren und ihre Wirkungen 


Erwähnenswert ist die Tatsache, daß 
es in Standard-Pascal keinen Exponen- 
tialoperator (A hoch B) gibt. Der weiter- 
führende Artikel über Prozeduren und 
Funktionen beschreibt, wie man sich 
diesen Operator selbst definiert. 

Um die Ergebnisse von Berechnun- 
gen und die Inhalte von Variablen am 
Bildschirm darzustellen und auch um 
Eingaben des Benutzers von der Tasta- 
tur zulesen, gibt es in Pascal einige vor- 
definierte Unterprogramme. Diese Pro- 
zeduren werden durch die Angabe 
ihres Namens, den »Prozeduraufruf« 
aktiviert. Das Programm aus Listing 1 
enthält bereits verschiedene Prozedur- 
aufrufe. Mit WRITELN (write line) wird 
zum Beispiel der Cursor am Bildschirm 
auf den Anfang der nächsten Zeile 
gesetzt. Oft muß man einer Prozedur 
weitere Informationen übergeben. 
Diese »Parameter« werden in Klammern 
und durch Kommata getrennt hinter 
dem Prozedurnamen aufgeführt: 
WRITE('SUMME = ', A+B+C); 

WRITE('! DM') 

Als Parameter für die Prozedur 
WRITE sind neben Textkonstanten 
(Strings in Hochkommata) alle Werte 
der Standard-Typen (REAL, INTEGER, 
CHAR und auch BOOLEAN) zugelas- 
sen. Gerade für Einsteiger bietet sich 
damit die Chance, während des Pro- 
grammablaufs Zwischenergebnisse 
oder Variablen ohne großen Aufwand 
anzuzeigen. Zwei aufeinanderfolgende 
WRITE-Anweisungen drucken ihre 
Werte ohne Zwischenraum direkt hin- 
tereinander. Möchte man nach der Aus- 
gabe einen Zeilenvorschub durchfüh- 
ren, so verwendet man WRITELN statt 


WRITE. Das Gegenstück zu WRITE und 
WRITELN sind die Prozeduren READ 
und READLN. Als Parameter an diese 
Prozeduren übergibt man Variablen, 
denen Werte zugewiesen sind, die von 
der Tastatur eingelesen werden. 
Betrachten wir folgendes Beispiel: 
READ(A,B,C,D) 

Dieser Prozeduraufruf liest vier Werte 
ein. Ob es sich dabei um ganzzahlige 
oder reelle Zahlen oder um Zeichen 
handelt, hängt von der Deklaration der 
Variablen A, B, C und D ab. Sind A, B, C 
und D Variablen vom Typ INTEGER, so 
kann der Benutzer folgende Eingaben 
machen: 

1 2 3 4 [RETURN Taste] 
oder auch in mehreren Zeilen: 
1 2 [RETURN Taste] 

3 [RETURN Taste] 

4 [RETURN Taste] 

Mit »READLN (A); READLN(B); 
READLN(C); READLN(D)« wird nach 
dem Einlesen jedes Wertes der Rest 
der Eingabezeile ignoriert, so daß die 
vier Werte in vier Zeilen eingegeben 
werden müssen. 

Später werden Sie sehen, wie man 
eigene Prozeduren und Funktionen in 
Pascal definiert, denen man wie den 
Standard-Funktionen Parameter über- 
geben kann, oder die Ergebnisse 
zurückliefern. Solche benutzerdefinier- 
ten Prozeduren entsprechen also im 
Prinzip den Unterprogrammen (Stich- 
wort GOSUB, RETURN) in Basic. 

Jetzt sind alle einfachen Anweisun- 
gen bekannt, so daß wir mit der Bespre- 
chung der zusammengesetzten Anwei- 
sungen fortfahren können. 


FAAPPY* 
COMPUTER 


BEGIN (* TAUSCHE A <-> B *%) 
H A; 


re Bi; 
B: H 
END 
Listing 4. Ein Beispiel für einen ab- 
geschlossenen Anweisungsblock 


Eine »Anweisungsfolge« faßt eine 
Reihe von Anweisungen zu einer einzi- 
gen Anweisung zusammen. Listing 4 
zeigt als Beispiel für die allgemeine 
Struktur einer Anweisungsfolge ein kur- 
zes Programmstück, in dem der Inhalt 
der Variablen A und B vertauscht wird. 
Dieses Diagramm soll zeigen, wie die 
kleinen Blöcke (Anweisungen) zu 
einem großen Block (der zusammenge- 
setzten Anweisung) zusammengefaßt 
werden. Bitte beachten Sie, daß Semi- 
kola zwischen den Anweisungen ste- 
hen und nicht hinter jeder Anweisung. 
Daher muß vor dem abschließenden 
END kein Semikolon stehen. Jedoch ist 
es erlaubt, überflüssige Zeichen in eine 
Anweisungsfolge einzufügen, so daß 
folgende Anweisungsfolgen ebenfalls 
syntaktisch korrekt sind: 

BEGIN H:=A; A:=B; B:=H; END 
und 
BEGIN ;H:=A;; A:=B; B:=H END 

Der Anweisungsteil eines Pascal- 
Programms ist also syntaktisch gese- 
hen eine Anweisungsfolge. Da die 
Anweisungen in einer Anweisungsfolge 
immer in derselben Reihenfolge abge- 
arbeitet werden, benötigt man zur 
bedingten Ausführung von Befehlen 
eine zusätzliche zusammengesetzte 
Anweisung. 


Bedingungen 
auswerten mit IF 


In Pascal gibt es zwei Formen der »IF- 
Anweisung, die in Listing 5 und Listing 
6 dargestellt sind. Die Bilder 3 und 4 
sind die zu diesen Listings passenden 
Struktogramme. Die Bedingung nach 
dem Schlüsselwort IF ist ein beliebiger 
Ausdruck mit dem Ergebnistyp BOO- 
LEAN. Ist der Wert des Ausdruckes 
TRUE, so wird die Anweisung hinter 
dem Schlüsselwort THEN ausgeführt. 
Ist das Ergebnis FALSE, so wird die 
Anweisung nach dem Schlüsselwort 
ELSE (falls vorhanden) ausgeführt. 

Soll hinter THEN oder ELSE mehr als 
eine einzelne Anweisung stehen, müs- 
sen Sie diese Anweisungen mit BEGIN 
und END zu einer zusammengesetzten 
Anweisung »klammern«. Ein Beispiel 
hierfür zeigt Listing 7. Ein häufiger Feh- 
ler besteht darin, vor ELSE ein Semiko- 
lon einzufügen. In diesem Fall erkennt 
der Compiler die einseitige Auswahl 


IF Bedingung THEN 
Anweisung 


IF Bedingung THEN 
Anweisung 

ELSE 
Anweisung 


ELSE 


MAXIMUM: = A 


PROGRAM PQFORMEL (INPUT, OUTPUT); 


IF A=X THEN 
WRITELNCK, 


IF A>B THEN 
MAXIMUM: = A 


Listing 5. Die ein- 
fache IF-Anweisung 


"gefunden! ') 


Listing 6. Die IF-Anweisung 
mit ELSE-Zweig 


MAXIMUM: = B 


Bild 3, 
Struktogramm 
der einfachen 

IF-Anweisung 


MAXIMUM: = B Bild 4. 


 Struktogramm 
der IF-Anweisung 
mit ELSE-Zweig 


(* BERECHNE DIE LOESUNG DER GLEICHUNG X*X + PXX + Q = 0 %) 


VAR P,Q,A,M4: 
BEGIN 

WRITE(' P 

WRITEUC'Q 

kı:= - PP, 2; 
W:= SQORLA) - Q; 
IF W<0O THEN 


REAL; 


; READLN(P); 
i READLN(Q); 


WRITEU'Es existiert keine Loesung') 


", A + SQRTCW); 


WRITELN(U'X1 = 
= ', A - SQRTCW) 


WRITELN(' X2 
END; 


PROGRAM MAXIMUM ( INPUT, 
VAR MAX : INTEGER; 
A,B;C: INTEGER; 
BEGIN 
WRITEC'A BC: '), 
IF A>B THEN 
IF A>C THEN 
MAX: = A 
ELSE 
MAX: = C 
ELSE 
IF B>C THEN 
MAX: = B 
ELSE 
MAX: = C; 


OUTPUT); 


READLN(A,B,C); 


(wie in Bild 3) und »beschwert« sich, 
daß er mit dem Schlüsselwort ELSE 
nichts anzufangen weiß. 

Natürlich kann die Anweisung nach 
THEN und ELSE wiederum eine IF- 
Anweisung sein, was in Listing 8 dazu 
verwendet wird, das Maximum der Zah- 
len A, B und C zu bestimmen. Bild 5 
zeigt die zugehörige Blockstruktur, 
wobei man deutlich erkennt, daß jeder 
der geschachtelten Blöcke nur einen 


Listing 7. 
»Quadratische 
Gleichung« als 
Beispiel für 

die IFTHEN-ELSE- 
Anweisung 


Listing 8. 
»Maximum« - 
ein Beispiel für 
verschachtelte 
IF-Abfragen 


(*<- erst hier darf ein Semikolon stehen! *) 
WRITELN(U' Das Maximum von ', A, B, CO" 
D, 


ist ',MAX) 


Eingang und einen Ausgang besitzt. Ein 
Beispiel für die Schachtelung der ein- 
seitigen Auswahl bietet Listing 9. Hier 
wird zu einem Tagesdatum das Datum 
des nachfolgenden Tages berechnet, 
wobei zur Vereinfachung angenommen 
wird, daß jeder Monat 30 Tage besitzt. 

Wollen Sie komplexe IF...THEN..ELSE- 
Schachtelungen programmieren, so 
müssen Sie darauf achten, daß der 
Compiler jedes ELSE der letzten IF- 
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Anweisung zuordnet, die noch kein 
ELSE besitzt. Um in diesen Fällen Pro- 
bleme zu vermeiden, empfiehlt es sich, 
die »innen« liegenden IF-Anweisungen 
mit BEGIN und END zu klammern. 

Oftistes erforderlich, in Abhängigkeit 
eines Wertes verschiedene Berech- 
nungen durchzuführen. Für solche 
Fälle bietet sich die »CASE-Anweisung« 
an (Listing 10 und Bild 6). Es wird der 
Ausdruck nach dem Schlüsselwort 
CASE berechnet (der einen skalaren 
Typ besitzen muß) und in Abhängigkeit 
vom Ergebnis zu einer der Anweisun- 
gen hinter den Fallmarken verzweigt. 
Diese Fallmarken müssen jeweils Kon- 
stanten mit dem Typ des Ausdruckes 
hinter CASE sein. Stimmt keine der Fall- 
marken mit dem Ergebnis überein (zum 
Beispiel MONAT = 14), so erfolgt in 
Standard-Pascal ein Programmabbruch 
mit Fehlermeldung (viele Compiler 
erlauben jedoch auch die Angabe eines 
ELSE-Zweiges, auch OTHERWISE ge- 
nannt, dessen Anweisung in diesem 
Fall ausgeführt wird). 

Ein weiteres Beispiel für die CASE- 
Anweisung ist in Listing 11 gegeben. In 
diesem Programm werden von der 
Tastatur zwei Zahlen gelesen, die in 
Abhängigkeit von einem Zeichen (* . + 
- /) multipliziert, addiert, subtrahiert 
oder dividiert werden. Falls bei der Ver- 
arbeitung kein Fehler aufgetreten ist, 
wird das Ergebnis ausgedruckt. Bemer- 
kenswert an dem Beispiel ist noch die 
Verwendung der booleschen Variablen 
OK, die den Wert FALSE enthält, falls 
ein illegaler Befehl eingegeben oder 
eine Division durch O versucht wurde. 

In Basic würde man bei einem Fehler 
mit GOTO aus dem Inneren der CASE- 
Anweisung springen. Die auf den 
ersten Blick etwas schwerfällig anmu- 
tende Lösung mit der booleschen Varia- 
blen sorgt jedoch dafür, daß die CASE- 
Anweisung keinen zusätzlichen 
»Fehler-Ausgang« besitzt, der die 
Blockstruktur der zusammengesetzten 
Anweisung verletzen würde. Gerade 
bei großen Programmen sind nämlich 
Sonderbehandlungen mit Sprüngen 
quer durch den gesamten Programm- 
text eine schwer kontrollierbare Fehler- 
quelle. 

Als kleiner Einschub ist in Listing 12 
eine alternative Lösung der Aufgabe in 
dem Programm in Listing 10 gegeben. 
Sie nutzt die Tatsache, daß man in Pas- 
cal auch mit Mengen wie in der Men- 
genlehre in der Grundschule rechnen 
kann. Eckige Klammern ersetzen hier- 
bei die geschweiften Klammern der 
Mathematik. ; 

[1,2,3,4] und [1..4] bezeichnen die- 
selbe Menge, nämlich die Zahlen von 1 
bis 4. Hingegen bezeichnen [] aber 
auch [3..1] die leere Menge, die keine 
Zahl enthält. 


PROGRAM TAGESDATUM (INPUT, OUTPUT); 
CONST TAGE_PRO_MONAT = 30; 
MONATE_PRO_JAHR = 12; 
VAR TAG, INTEGER; 
BEGIN 


MONAT, JAHR: 


WRITELNt ' Heute ist der ', TAG, 
TAG: = TAG+1; 
IF TAG> TAGE_PRO_MONAT THEN 
BEGIN 
TAG: =1; MONAT: = MONAT+1; 
IF MONAT>MONATE_PRO_JAHR THEN 
BEGIN 
MONAT: =1; 
END 
END; 
WRITELN(' Morgen ist der ', TAG, ',' 
END, 


JAHR: = JAHR+I 


CASE Ausdruck OF 
Fallmarke, 
Fallmarke, ..., 


Fallmarke : 
Fallmarke : 


Fallmarke, .,., Fallmarke : 
END 


CASE MONAT OF 
15 3,5, 7, 8,10, 12: 
4,6,9,11 : 
2 : BEGIN 


SCHALTJAHR: = (JAHR MOD 4) = 0) AND 
(JAHR MOD 100)<>0) OR 
(JAHR MOD 400)=0); 

IF SCHALTJAHR THEN TAGE_PRO_MONAT: = 29 
ELSE TAGE_PRO_PONAT: = 28 


END; 
END; (* CASE*) 


Mit X IN [1,3,9,27] 

wird geprüft, ob die Zahl X in der Menge 
der Dreierpotenzenbis 27 enthalten ist. 
In der Tabelle 4 auf Seite 30 sind einige 
dieser Operationen mit Mengen darge- 
stellt (Vereinigungsmenge, Schnitt- 


menge, Differenzmenge, Test auf Teil- 
mengen, Test auf Gleichheit). 

Bei der Besprechung der zusammen- 
gesetzten Anweisungen haben wir in 
der Übersicht (Bild 2) die »Wiederho- 
lungsanweisungen« erreicht. Es gibt in 
Pascal drei verschiedene zusammen- 


Anweisung; 
Anweisung; 


Anweisung 


TAGE_PRO_MONAT: = 31; 
TAGE_PRO_MONAT: = 30; 


Listing 9. 
»Tagesdatum« - 
ein Beispiel zur 

Schachtelung der ein- 
seitigen Auswahl 


", JAHR); 


Listing 10. 
Allgemeine 
Form und Bei- 
spiel zur CASE- 
Anweisung 


CASE Ausdruck OF 


gesetzte Anweisungen, die Wiederho- 
lungen definieren, von denen sich jede 
für spezielle Anwendungsfälle beson- 
ders eignet. 

Möchte man eine Anweisung so oft 
ausführen, bis eine gewisse Bedingung 
erfüllt wird, bietet sich die »REPEAT- 
Anweisung« (Listing 13) an. Zwischen 
den Schlüsselwörtern REPEAT und 
UNTIL steht eine beliebige Folge von 
Anweisungen, die Semikola trennen. 
Am Ende der Ausführung dieser Anwei- 
sungen wird der Ausdruck hinter dem 
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PROGRAM MINICOMPUTER (INPUT, 
: CHAR; 
‚ ERG: REAL; 
: BOOLEAN; 


OUTPUT); 


WRITELNÜ' Geben Sie ein Operationszeichen (+,-,*,. 


READLNCCH, A, B); 
OK: = TRUE; 
CASE CH OF 
: ERG:= A * B; 
: IF B= O0 THEN 
BEGIN OK: = FALSE; 
WRITELN(' Fehler: 
END 
ELSE 
ERG: = 
: ERG:= A 
: ERG:= A 
BEGIN 
OK: = FALSE; 


A B; 
+ 


/ 
B; 
B: 


WRITELN(Ü' Die Operation ' 


END; 
END, (* von CASE *%) 
IF OK THEN 
WRITELNÜ' Ergebnis: ', 
END. 


ERG) 


„/) und zwei Zahlen ein!'); 


(* noch ist kein Fehler aufgetreten *) 


Division durch Null!') 


'‘ ist nicht moeglich!') 


Listing 11. Ein »Minicomputer« als weiteres Beispiel für CASE 


IF MONAT IN [1,3,5,7,8,10,12) THEN TAGE_PRO_MONAT: = 31 ELSE 


IF MONAT IN [4,6,9,11) 


Listing 12. 

Das Beispiel aus 
Listing 9, program- 
miert unter 
Verwendung 

von Mengen END; 


ELSE 


REPEAT 
Anweisung; 
Anweisung; 


Anweisung 
UNTIL Bedingung 


THEN TAGE_PRO_MONAT: = 30 ELSE 


BEGIN (* hier ist MONAT = 2 %) 
SCHALTJAHR: = (JAHR MOD 4) = 0) AND 
CC JAHR MOD 100)<>0) OR 
CJAHR MOD 400) =0); 
IF SCHALTJAHR THEN TAGE_PRO_MONAT: = 29 
ELSE TAGE_PRO_MONAT: = 28 


REPEAT 
WRITELN(' Alles klar? (Ja oder Nein)'); 
READ( CH) 

UNTIL CH IN ['J','j','N','n'] 


Listing 13. Allgemeine Form und Beispiel für REPEAT...UNTIL 


PROGRAMM WURZEL (INPUT, 
CONST EPS = 1.0E-7; 
VAR X, Y,2: REAL; 

BEGIN 
WRITEU' Die Quadratwurzel aus '); 
IF X<0 THEN 

WRITELN' 
ELSE 
BEGIN (“1, 


OUTPUT); 


ist keine reelle Zahl') 


$ 2; 
REPEAT 

2:= Y; Yı= Yay 
UNTIL Y>X; 


(x 2. 

REPEAT 
Y:= 7; 
2:=0.5*(Y+ XD 
UNTIL ABS(Y-Z)<= EPS; 


WRITELNÜ' ist ', 2) 
D; 


(% Genauigkeit: 


mindestens 7 Nachkommastellen*) 


READ (X), 


einen Startwert Z berechnen *) 


Jetzt folgt die eigentliche Berechnung: *) 


(* bis Abweichung kleiner als Genauigkeit *) 


Listing 14. Berechnung von Quadratwurzeln unter Verwendung von 
REPEAT...UNTIL-Schleifen 


Schlüsselwort UNTIL ausgewertet. Er 
liefert einen booleschen Wert (TRUE 
oder FALSE). Ist die Abbruchbedin- 
gung nicht erfüllt, so wird die Anwei- 
sungsfolge wiederholt. In dem Beispiel 
werden also so lange Zeichen von der 
Tastatur eingelesen, bis der Benutzer 
ein »J« oder ein »N« eingegeben hat. Bei 
näherem Hinsehen können Sie also 
feststellen, daß Mengenoperationen 


auch auf Mengen von Zeichen anwend- 


bar sind: 
CH IN ['j'; 7, te, 'N'] 

Eine REPEAT-Schleife benutzt man 
bei Wiederholungen, die in der 
Abbruchbedingung einen Wert benöti- 
gen, der erst im Inneren der Schleife 
ermittelt wird. Als Beispiel ist in Listing 
14 die Berechnung der Quadratwurzel 
für eine reelle Zahl X durch eine Itera- 


tion aufgeführt. Dieses Programm 
berechnet die Wurzel in zwei Schritten, 
die jeweils eine REPEAT-Schleife benö- 
tigen. Im ersten Schritt wird die kleinste 
Zweierpotenz (2,4,8,16....) Z berech- 
net, die quadriert gerade größer als X 
ist. Anschließend wird in der zweiten 
REPEAT-Schleife dieser Startwert Z 
schrittweise modifiziert, bis die Diffe- 
renz zwischen zwei Iterationswerten 
kleiner als die gewünschte Genauigkeit 
EPS ist. 

Viel häufiger als die REPEAT-Anwei- 
sung findet die WHILE-Anweisung Ver- 
wendung (Listing 15 und Bild 8). Hier 
wird die Bedingung nach dem Wortsym- 
bol WHILE vor der Ausführung der 
Anweisung nach DO geprüft. Damit 
besteht insbesondere die Möglichkeit, 
daß diese Anweisung kein einziges Mal 
ausgeführt wird, falls nämlich die Bedin- 
gung bereits beim Eintritt in die Schleife 
den Wert FALSE liefert. 

Soll die WHILE-Schleife, was wohl in 
der Mehrzahl der Fälle zutreffen wird, 
mehrere Anweisungen umfassen, so 
muß man diese zu einer Anweisungs- 
folge mit BEGIN und END klammern. Ein 
kleines, aber besonders schönes Bei- 
spiel für die Funktionsweise der 
WHILE-Schleife zeigt Listing 16. Hier 
wird der Wert E = NK für natürliche 
Zahlen N und K berechnet. K gibt also 
an, wie oft N mit sich selbst multipliziert 
werden muß, um E zu erhalten. Daher 
wird im Programm die Zählvariable I ver- 
wendet, die von K abwärts gegen O 
zählt. Das Beispiel ist deshalb so ideal, 
da durch die Eigenschaft der WHILE- 
Anweisung, eine Prüfung am Beginn 
der Schleife durchzuführen, auch die 
Sonderfälle korrekt behandelt werden. 
In der Mathematik gilt nämlich: 

No = 1 für alle N 
OK = 0 für alle K£0O 

Durch eine geeignete Wahl der Wie- 
derholungsanweisung kann man sich 
also viele Sonderbehandlungen mit IF- 
Anweisungen ersparen. 

Zum Vergleich ist in Listing 17 je eine 
WHILE- und eine REPEAT-Schleife 
angegeben, die alle Zahlen zwischen A 
und B druckt. Wenn Sie mit diesem Pro- 
gramm experimentieren, werden Sie 
feststellen, daß der einzige Uhnter- 
schied bei der Ausführung darin 
besteht, daß in der REPEAT-Schleife für 
A>Bdie Zahl A gedruckt wird, während 
die WHILE-Schleife in diesem Fall nicht 
in Funktion tritt. 

Für eine Anwendung wie in Listing 17 
wird man jedoch normalerweise die 
dritte Variante der Wiederholungsan- 
weisungen in Pascal benutzen: Die 
FOR-Schleife (Listing 18) findet überall 
dort Anwendung, wo die Anzahl der 
Schleifendurchläufe vor dem Beginn 
der Schleife bereits bekannt ist. Den 
genauen Ablauf der Ausführung soll fol- 
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gendes Beispiel zeigen: 

FOR I:= A TO B DO WRITE(I) 

1. Berechne A und weise den Wert der 
Variablen I zu. 

2. Berechne B und speichere den Wert 
in einer temporären (unsichtbaren) 
Variablen X 

3. Ist I>X, so beende die Schleife 

4. Sonst drucke die Zahl | 

5. Erhöhe | um 1 und weiter bei 3 
Die Variable |muß einen skalaren Typ 

besitzen (also zum Beispiel CHAR, aber 

nicht REAL) und mit dem Ergebnistyp 
von A und B verträglich sein. Aus dem 
obigen Schema (1..6) folgt außerdem, 
daß für A>B wie bei der WHILE- 

Schleife keine Zahl gedruckt wird. Man 

könnte in der Schleife die Variable B 

auch beliebig verändern, ohne die 

obere Grenze der Zählvariablen (die ja 
in einer temporären Variablen gespei- 
chert wurde) zu beeinflussen. 


Um rückwärts zu zählen, besteht 
noch die Möglichkeit, eine Variante der 
FOR-Schleife zu verwenden: 

FOR I:= A DOWNTO B DO WRITE(I) 

Die obigen Regeln gelten für diese 
Schleife analog. Mit der FOR-Schleife 
kann man nur in Einerschritten aufwärts 
oder abwärts zählen, andere Schrittwei- 
ten müssen mit einer WHILE-Schleife 
explizit programmiert werden. Im Bei- 
spiel aus Listing 19 wird ein Winkel PHI 
in Schritten von DELTA hochgezählt und 
dabei eine Funktion am Bildschirm 
»gezeichnete«. R 

Wenn Sie zu der Übersicht in Bild 2 
zurückblättern, werden Sie erkennen, 
daß wir mit der Vorstellung der FOR- 
Schleife praktisch alle Anweisungen in 
Pascal besprochen haben. Zwei funda- 
mentale Eigenschaften von Pascal wur- 
den jedoch noch ausgespart. 

(1) Zusammengesetzte Typen er- 
möglichen es, nicht nur mit einzelnen 
Zahlen und Zeichen, sondern sogar mit 
hierarchisch aufgebauten und auch 
veränderlichen Datenstrukturen zu 
arbeiten. 

(2) Neben den bereits vorgestellten 
Standard-Prozeduren READ, READLN, 
WRITE und WRITELN gibt es noch eine 
Vielzahl an vordefinierten Prozeduren 
und Funktionen, die in jeder Implemen- 
tation der Sprache Pascal vorhanden 
sind. Viel bemerkenswerter ist jedoch 
die Möglichkeit, beliebige Teile eines 
Programmes als Prozeduren und Funk- 
tionen zu definieren, die über 
bestimmte Schnittstellen mit ihrer 
»Umwelt« (Prozeduren oder Hauptpro- 
gramm) kommunizieren können. 

In den folgenden Beiträgen werden 
diese beiden wichtigen und interessan- 
ten Gebiete ausführlich behandelt, 
wobei gleichzeitig das bisherige Wis- 
sen über die einfachen Typen und die 
Anweisungen in Pascal angewandt und 
vertieft wird. (Florian Matthes/ev) 
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WHILE Bedingung DO 
Anweisung 


WHILE X>=1.0 DO 
%:= X / 2.0 


Listing 15. Allgemeine Form und Beispiel für die WHILE...DO-Schleife 


PROGRAM HOCH (INPUT, OUTPUT); 
VAR I,N,E,K: INTEGER; 
BEGIN 
READLN{N, RK); 
IF (N<0O) OR (K<0) THEN 
RRITELN(' ungueltige Eingabe!') 
ELSE 
BEGIN 
B;wtV; I:=K; 
WHILE I>0 DO 
BEGIN 
E:= EAN; 
I:= I-1 
END; 
WRITELNCN, '"', KR, 
END 
END. 


Listing 16. Ein Demo-Programm unter 
Verwendung der WHILE...DO-Schleife 


FOR Variable: = Ausdruck TO Ausdruck DO 


Anweisung 


PROGRAM ZUM_VERGLEICH (INPUT, OUTPUT); 
VAR I, A, B: INTEGER; 
BEGIN 
READLN(CA,B); 
WRITEU' Mit REPEAT: '); 
I: =A; 
REPEAT 
WRITE(TD); 
I.» [+1 
UNTIL I>B; 
WRITELN; 


HRITE(C' Mit WHILE:'); 
I:= ı 
WHILE I<=B DO 

BEGIN 


WRITE(TI; Listing 17. 
I:= I#1 


Eu Ein Programm zum 
HRITELN Vergleich zwischen 
END. WHILE und REPEAT 


FOR I:= 1 TO 1000 DO 
SUMME: = SUMME + 1 / I 


FOR Variable: = Ausdruck DOWNTO Ausdruck DO FOR I:= 1000 DOWNTO 1 DQ 


Anweisung 


SUMME: = SUMME + 1 / I 


Listing 18. Allgemeine Form und Beispiel für die FOR-Schleife 


PROGRAM SCHWINGUNG (INPUT, OUTPUT); 


t* ZEICHE DIE FUNKTION F(PHI) = EXP(-PHI/PI) * SIN (PHI) % 


CONST PI = 3, 1415926; 
MAXZEILEN = 40; 
MITTE = 40; 

VAR PHI,Y, DELTA : REAL; 
SPALTE, ZEILE: INTEGER; 


BEGIN 
DELTA: = 6*PI / MAXZEILEN 
FOR ZEILE: = O0 TO MAXZEILEN DO 
BEGIN 
PHI: = DELTA * ZEILE; 


(*% Laenge der Ausgabe in Zeilen %“) 
(* Mitte eines 80-Zeichen Bildschirms*) 


(* AKTUELLER WINKEL *%) 
Y :;= EXP(-PHI/PI) *SINCPHID; 


SPALTE: = MITTE + ROUND( MITTE * Y),; 


. WRITBLNET RT; 
END; 
END. 


SPALTE); 


(* drucke Stern in Spalte SPALTE *) 


Listing 19. Schwingungs-Berechnung mit FOR-Schleife 


Pe APPYS 


Programmieren mit Pascal 


Mit diesem Artikel steigen wir 
voll in die eigentliche Program- 
mierung mit Pascal ein. Prozedu- 
ren, Funktionen und Datentypen 
heißen die Stichworte. 


ie steigt man am einfach- 

sten in die Programmierung 

ein? Nun, vermutlich mit 
einem Programm zum Ausprobieren 
und Experimentieren. Das Beispielpro- 
gramm in Listing 1 liest einen Text von 
der Tastatur ein und zeichnet ein einfa- 
ches Balkendiagramm wie in Bild 1, das 
die Häufigkeit jedes Zeichens angibt. 
Wir möchten Sie bitten, vor dem Weiter- 
lesen einen längeren Blick auf das 
Listing zu werfen, um einerseits die 
bereits im einführenden Artikel bespro- 
chenen Sprachelemente (zum Beispiel 
die FOR-Schleife) zu verstehen und 
andererseits einen Überblick über die 
neuen Probleme zu bekommen. 

Der Kern des Programms besteht 
darin, für jeden Buchstaben einen Zäh- 
ler zu führen, der bei jedem Auftreten 
des Buchstabens im eingelesenen Text 
erhöht wird. Natürlich möchte man nicht 
für jeden Buchstaben eine Zählvariable 
deklarieren und dann in einer riesigen 
CASE-Anweisung jeden einzelnen Zäh- 
ler erhöhen. Statt dessen vereinbart 
man ein ARRAY (Feld, Tabelle) von Zäh- 
lern: 

VAR Z: ARRAY ['0'..'2'] 
OF INTEGER; 

Ein Array ist eine Variable, über deren 
Namen mehrere Werte des gleichen 
Typs angesprochen werden. Das Array 
Z besitzt für jedes Zeichen zwischen 
»0« und »Z« einen Wert vom Typ INTE- 
GER. Auf die einzelnen Werte greiftman 
durch Nennung des Array-Namens, 
gefolgt von einem Index in eckigen 
Klammern, zu: 
2['0']:= 13; 

WRITELN (Z['X']); 
Z[CH]:= Z[CH] + 1 

Die letzte Zuweisung zeigt eine wich- 
tige Eigenschaft von Arrays: Man kann 
als Index eine Variable (hier CH) oder 
einen beliebig komplexen Ausdruck 
verwenden. Für Basic-Programmierer 
ungewohnt ist die Eigenschaft von Pas- 
cal, nicht nur Zahlen, sondern beliebige 
geforderte Datentypen als Index zuzu- 
lassen. 

Um alle Zähler in Z zurückzusetzen, 
kann man also folgende FOR-Schleife 
verwenden: 

FOR CH:= '0' TO 'Z' DO Z[CH]:= 0; 

Nach diesem speziellen Beispiel sol- 


len Sie auch die allgemeinen Regeln für 
Arrays in Pascal kennenlernen: 

1. Ein Array muß wie jede andere 
Variable im Variablendeklarationsteil 
vereinbart werden. 

2. Ein Array ist ein zusammengesetz- 


PROGRAM HAEUFIGKEIT (INPUT, OUTPUT); 


ter Typ, der durch zwei Typen beschrie- 
ben wird: Den skalaren Indextyp und 
den beliebig wählbaren Elementtyp. Z 
hat also den Indextyp »’0' .. 'Z’« und den 
Elementtyp INTEGER. 

3. Beim Indizieren muß der Typ des 


(* STATISTIK DER BUCHSTABENHAEUFIGKEIT IN EINEM TEXT *%) 


CONST VON = '0'; BIS = '7'; 
ENDEZEICHEN = '@'; 
BILDSCHIRMBREITE = 80; 


TYPE 
VAR Z : ZAEHLERFELD; 


PROCEDURE LOESCHEN( VAR A: 
(* ALLE ZAEHLER ZURUECKSETZEN *) 


VAR CH: CHAR; 
BEGIN 

FOR CH: = VON TO BIS DO AUCH]: =0 
END; (* LOESCHEN *) i 


PROCEDURE ZAEHLEN (VAR A: 


ZAEHLERFELD); 


ZAEHLERFELD); 


(* 80 ZEICHEN PRO 7EILE AM BILDSCHIRM *%) 


ZAEHLERFELD = ARRAYLVON.. BIS) OF INTEGER; 


IEREREIF FIT BEGINN DER PROZEDUREN *) 


(* TEXT VON DER TASTATUR BIS ENDEZEICHEN EINLESEN UND ZAEHLER IN A ERHOEHEN *) 


VAR CH: CHAR; 
BEGIN 
WRITELNC' GEBEN SIE JETZT BITTE EINEN TEXT EIN, DER MIT ', ENDEZEICHEN, 
ENDET' ); 
REPEAT 
READ(CH),; 
IF CH IN [VON.. BIS] THEN 
AUCHI: = AUCH) + 1; 
UNTIL CH = ENDEZEICHEN; 
WRITELN 
END; (% ZAEHLEN %) 
PROCEDURE STATISTIK (A: ZAEHLERFELD); 
(* DRUCKE FUER JEDEN BUCHSTABEN EINEN BALKEN, DER DIE HAEUFIGKEIT DES *) 


(* ZEICHENS ANGIBT. 


VAR CH CHAR; 
MAX : INTEGER; 
HOEHE: INTEGER; 


PROCEDURE BALKEN (N: INTEGER); 


*) 


(* ZEICHNE EINEN HORIZONTALEN BALKEN MIT N ZEICHEN *) 


BEGIN 
WHILE NO DO 
BEGIN 
WRITEC' AH); N:= N-1 
END; 
HRITELN; 
END; (* BALKEN *) 


BEGIN (*% HIER BEGINNT DER ANWEISUNGSTEIL DER PROZEDUR STATISTIK *%) 
WRITELN(' STATISTIK DER BUCHSTABENHAEUFIGKEITEN: '); 


(* BESTIMME ZUNAECHST DEN MAXIMALEN ZAEHLERSTAND: *) 


MAX: = ALVON]; 
FOR CH: = SUCCt VON) TO BIS DO 
IF AULCHI>MAX THEN MAX: = AUCH]; 
(* ZEICHEN JETZT DIE BALKEN: *%) 
FOR CH: =VON TO BIS DO 
BEGIN 
RRITECCH, ' ı'); 
HOEHE: = ROUND( 


AUCH) * (BILDSCHIRMBREITE-3) /MAX); 


(* DAMIT NIMMT DER HOECHSTE BALKEN DIE GESAMTE BILDSCHIRMBREITE EIN “) 


BALKEN ( HOEHE): 
END; 
END; (* STATISTIK *%) 


BEGIN 
LOESCHEN (2); 
ZAEHLEN (2); 
STATISTIK(Z); 
END. 


Listing 1. Programm »Häufigkeit« 


44-40 ENDE DER PROZEDUREN *) 


APPY® 
aa 


NE 


Ausdruckes in eckigen Klammern mit 
dem bei der Deklaration vereinbarten 
Indextyp verträglich sein. »2[5]:=0« 
wäre nach der oben angegebenen De- 
klaration von Z nicht zulässig, da die 
Zahl 5 kein Zeichen ist. Außerdem ist 
auch die Zuweisung »Z[’]:=3« nicht 
erlaubt, da das Zeichen '! nicht im Inter- 
vall »0« bis »Z« liegt. 

Wenn Sie die Deklaration der Varia- 
blen Z im Beispiel 24 untersuchen, wer- 
den Sie feststellen, daß diese in drei 
Schritten erfolgte: Zunächst wurden 
zwei Konstanten 
CONST VON='0'; BIS='2'; 
eingeführt. Mit diesen beiden Konstan- 
ten erfolgte im nächsten Schritt eine 
Typendeklaration: 

TYPE ZAEHLERFELD = ARRAY 
[VON .. BIS] OF INTEGER; 

Nach dem Schlüsselwort TYPE wird 
ein Name genannt, dem nach einem 
Gleichheitszeichen eine Typangabe 
folgt. Im dritten Schritt kann in der Varia- 
blendeklaration der Typbezeichner 
ZAEHLERFELD benutzt werden, um 
ein Array mit den Indexgrenzen VON 
und BIS und dem Elementtyp INTEGER 
zu definieren. 

VAR A,B,FELD: ZAEHLERFELD; 
ZAEHLER: ZAEHLERFELD; 

Neben der Einsparung von Schreib- 
arbeit erhöhen Typnamen die Lesbar- 
keit von Programmen. Listing 2 zeigt 
einige Typdeklarationen und anschlie- 
Bend die Anwendung dieser Typnamen 
in weiteren Typ- und Variablendeklara- 
tionen. 

Jetzt werden Sie wahrscheinlich alle 
Anweisungen mit den Array-Variablen A 
und Z verstehen. Neben der Verwen- 
dung von Arrays und Typnamen enthält 
das Programm »Häufigkeit« (Listing 1) 
noch ein weiteres neues Sprachele- 
ment von Pascal. Sie finden in dem Pro- 
gramm viermal das Schlüsselwort PRO- 
CEDURE, das eine Prozedurdeklara- 
tion einleitet. Nach diesem Schlüssel- 
wort folgt der Name der Prozedur, über 
den die Prozedur aufgerufen wird. Der 
eigentliche Anweisungsteil des Pro- 
grammes (nach dem letzten BEGIN) 
besteht also nur aus den folgenden drei 
Prozeduraufrufen: 

LOESCHEN (2); 
ZAEHLEN (Z); 
STATISTIK(Z); 

Das Programm besteht also aus drei 
voneinander unabhängigen Programm- 
teilen zum Rücksetzen der Zähler, zum 
Einlesen des Textes und der Ausgabe 
der Statistik. Jeder Prozedur wird in 
Klammern das Array Z als aktueller 
Parameter übergeben. 

Wie sieht aber eine Prozedurdeklara- 
tion aus? Prozedurdeklarationen müs- 
sen am Ende des Vereinbarungsteils 
(also hinter den Konstanten, Typ- und 
Variablendeklarationen) stehen. Die 
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Bild 1. Ergebnisausdruck des Programms »Häufigkeit« (Ausschnitt) 


Prozedurdeklaration selbst besteht aus 
drei Teilen: 

1. Der Prozedurkopf enthältnach dem 
Namen der Prozdur bei Bedarf in Klam- 
mern eine Liste der formalen Parame- 
ter: 

PROCEDURE LOESCHE 
(VAR A: ZAEHLFELD); 

Die Prozedur LOESCHEN muß also 
mit einer Variablen vom Typ ZAEHLER- 
FELD aufgerufen werden. Die Variable 
besitzt innerhalb der Prozedur den 
Namen A. Beinhaltet eine Prozedur 
mehrere Parameter, so müssen die 
aktuellen Parameter in der Reihenfolge 
der formalen Parameter angegeben 
werden. Der Aufbau der Parameterliste 
kommt später genauer zur Sprache. 

2. Nach dem Prozedurkopf folgen alle 
Deklarationen, wie sie auch beim 
Hauptprogramm möglich sind. Das 
heißt, daß eine Prozedur wie ein eigen- 
ständiges Programm mit eigenen Kon- 
stanten, Typen, Variablen und wie- 
derum Prozeduren ausgestattet sein 
kann. So besitzt zum Beispiel die Proze- 
dur LOESCHEN eine Variable CH vom 
Typ CHAR, die nur innerhalb der Proze- 
dur gültig ist, und damit insbesondere 
nicht von Anweisungen im Hauptpro- 
gramm oder in anderen Prozeduren ver- 
ändert werden kann. Die Prozedur STA- 
TISTIK enthält selbst eine Prozedurde- 
klaration (BALKEN). 

3. Schließlich folgt zwischen den 
Schlüsselworten BEGIN und END der 
Anweisungsteil der Prozedur. Es ist 
üblich, nach dem letzten END in Kom- 
mentarklammern den Namen der Pro- 
zedur zu nennen, die an dieser Stelle 
endet, damit man bei großen Program- 
men jeden Anweisungsteil leicht dem 
Prozedurkopf zuordnen kann. 

Im Beispielprogramm »Häufigkeit« 
werden also nacheinander die Anwei- 
sungstele der Prozeduren LOE- 
SCHEN, LESEN und STATISTIK ausge- 
führt, wodurch nacheinander die Zähler 
Z gelöscht, erhöht und schließlich gra- 
fisch dargestellt werden. 

Jetzt ist es an der Zeit, daß Sie etwas 
mehr über die Sichtbarkeitsregeln von 
Namen in Pascal erfahren. Sie legen 
fest, welche Namen in einer Prozedur 


PROGRAM TYPEN (INPUT, OUTPUT); 
CONST ANZAHL_AUFGABEN = 400; 


TYPE GROSSE_ZAHL = REAL; 
RLEINE_ZAHL.= INTEGER; 
ZEICHEN = CHAR; 
ERGEBNIS = BOOLEAN; 
EINKOMMEN = ARRAY [1970..1986) 
OF GROSSE_ZAHL; 

= ARRAY [1..80) OF 

CHAR; 
TESTBOGEN = ARRAY [1.. ANZAHL_ 
AUFGABEN) OF ERGEBNIS; 


VAR A,B,C 
CH1,CH2 
UEBERSCHRIFT 
DEUTSCHLAND, 
MEDIZINERTEST 


: GROSSE_ZAHL; 
: ZEICHEN; 
: ZEILE; 


ENGLAND : EINKOMMEN; 
: TESTBOGEN; 


BEGIN 
END. 


Listing 2. Beispiele für 
Typdeklarationen 


zur Anwendung kommen. Zunächst 
noch eine Definition: Ein Block ist eine 
Prozedur oder das Hauptprogramm 
selbst. 

In einem Block sind alle die Namen 
sichtbar (also gültig), die innerhalb die- 
ses Blockes deklariert wurden. Außer- 
dem noch diejenigen, die in einem 
»umfassenden« Block deklariert wur- 
den. Wurde ein Name sowohl in einem 
umgebenden Block als auch im Block 
selbst deklariert, so ist nur die innere 
Deklaration sichtbar. 

Variablen, die in einer Prozedur fest- 
gelegt wurden, heißen lokale Variablen 
dieser Prozedur. Benutzt jedoch eine 
Prozedur Variablen, die in einem umge- 
benden Block deklariert wurden, so 
nennt man diese global. 

Diese Regeln soll das Programm 
»Sichtbarkeit« in Listing 3 verdeutli- 
chen. Zur Unterstützung ist in Bild 2 die 
Schachtelung der Blöcke grafisch dar- 
gestellt. Die Prozedur P1 besitzt drei 
lokale Namen, nämlich den Parameter 
V1, die Konstante K4 und die Variable V 
2. Durch die Deklaration des Namens 
»V1:CHAR« in P1 ist der Name »V1: Ti« 
aus dem Hauptprogramm in P1 nicht 
sichtbar. Andererseits sind die Namen 
von P1 nicht in P2, P21 oder dem 
Hauptprogramm sichtbar. 

Prozedur P21 zeigt auch, daß Namen 
über mehrere Blöcke hinweg sichtbar 


NN 


sind: So in P21 der Name K2 aus dem 
Hauptprogramm, da P21 in der Proze- 
dur P2 enthalten: ist, die selbst zum 
Hauptprogramm gehört. 

Für die Praxis bedeutet dies, daß man 
in einer Prozedur Namen ohne Rück- 
sicht auf die »Umgebung« deklarieren 
kann. Tatsächlich versucht man sogar, 
nur in Ausnahmefällen auf globale Varia- 
blen zuzugreifen und alle Werte als 
Parameter an die Prozeduren zu über- 
geben. Damit kann man später die Pro- 
zedur in einem völlig anderen Pro- 
gramm verwenden, ohne daß Namens- 
konflikte auftreten. 

Nach diesem etwas theoretischen 
Abschnitt soll eine Reihe von Beispie- 
len diese Regeln illustrieren und außer- 
dem verschiedene Typen von Parame- 
tern vorstellen. Das erste Beispiel 
(Listing 4) zeigt eine Prozedur, die eine 
INTEGER-Zahl als eine Hexadezimal- 
Zahl anzeigt. Zur Anzeige wird die vier- 
stellige Zahl zunächst in zwei Byte zer- 
legt, deren beide Hexadezimal-Stellen 
schließlich mit der Prozedur PRINTDI- 
GIT angezeigt werden. Klar zu erken- 
nen ist hier die Schachtelung der drei 
Prozeduren, wobei jede einen Parame- 
ter X vom Typ INTEGER besitzt. 

Die Prozedur SWAP in Listing 5 
besitzt zwei Parameter des Typs INTE- 


PROGRAM SICHTBARKEIT (OUTPUT); 


CoNST Ki = 3; 
TYPE 
VAR 


K2 = 'C', K3 = ' 
T1 = INTEGER; T2 = REAL; 
h 5: Mu 5. I 


PROCEDURE P1 (VAR Vi: CHAR); 


CONST K4 = 23.4; , 
VAR V2 : INTEGER; 


BEGIN 
(* HIER 
CoNST 
TYPE 
VAR 


SIND FOLGENDE 
Ki = 3; K2 = 
Ti = INTEGER; 
V1 : CHAR; 

v2 : INTEGER; 
END; (* Pi %) 


NAMEN SICHTBAR: 
"cc; 
T2 


PROCEDURE P2; 
VAR V2: REAL; 


PROCEDURE P21; 
CONST Ki = '2'; 


BEGIN 

(* HIER 
CoNST 
TYPE 
VAR 


SIND 
Ki = 
T1 = 
ws 'T13 
V2 : REAL; 
P21 *) 


FOLGENDE NAMEN SICHTBAR: 
E22 = tr; Ki-' 
INTEGER; T2 = REAL; 


*) 
END; (* 

BEGIN 
(* HIER SIND FOLGENDE NAMEN SICHTBAR: 

CONST K1 = 3; K2 = 'C'; K3 = ' 

TYPE Ti = INTEGER; T2 = REAL; 

VAR vi: 71; 

V2 : REAL; 

(% P2 %) 


%) 
END; 


BEGIN 
(* HIER 
CONST 
TYPE 
VAR 


SIND FOLGENDE NAMEN SICHTBAR: 
Ki = 3; K2 = 'C'; 

Ti = INTEGER, T2 = 

vi: 71; 

V2 : REAL; 

END, 


Listing 3. Ein Beispiel für Sichtbarkeitsregeln 


GER. Die Prozedur tauscht den Inhalt 
dieser beiden Parameter aus. 

Listing 4 und 5 zeigen die beiden in 
Pascal vorhandenen Typen von Para- 
metern. Wird ein formaler Parameter im 
Prozedurkopf mit dem Schlüsselwort 
VAR gekennzeichnet, so nennt man ihn 
einen Variablenparameter. In diesem 
Fall muß der aktuelle Parameter eine 
Variable des angegebenen Typs sein. 
Der Aufruf 
SWAP (5,6) 
wäre also nicht zulässig. Innerhalb der 
Prozedur bewirkt jede Zuweisung an 
einen Variablenparameter eine Ände- 
rung des Wertes der Variablen, die als 
aktueller Parameter übergeben wurde. 
Wurde also zum Beispiel die Prozedur 
SWAP mit den Variablen X und Y aufge- 
rufen, so wird durch die Zuweisung 
A:=B tatsächlich der Variablen X der 
Wert der Variablen Y zugewiesen. 

Die Parameter der Prozedur PRINT- 
HEX sind hingegen Wertparameter. 
Beim Aufruf einer solchen Prozedur 
werden die aktuellen Parameter, die 
nicht unbedingt Variablen sein müssen, 
in lokalen Variablen der Prozedur 
gespeichert. Bei der Ausführung der 
Prozedur wird nur auf diese Kopie des 
aktuellen Parameters zugegriffen, so 
daß insbesondere eine Zuweisung an 


einen Wertparameter niemals eine 
Änderung im aufrufenden Block 
bewirkt. : 

Ist Ihnen der Unterschied noch nicht 
völlig klar, so sollten Sie das Schlüssel- 
wort VAR aus dem Prozedurkopf von 
SWAP löschen und das Programm neu 
compilieren. Nach der Rückkehr aus 
der Prozedur werden dann die Werte 
der Variablen X und Y im Hauptpro- 
gramm unverändert sein. 

Jeder Parameter wird wie eine Varia- 
ble mit der Angabe seines Typs nach 
einem Doppelpunkt deklariert. Dabei ist 


PROGRAM VARIABLENPARAMETER (INPUT, 
OUTPUT); 


VAR X, Y: INTEGER; 


PROCEDURE SWAP (VAR A,B: INTEGER); 
(% TAUSCHE DEN INHALT VON A UND B %) 


VAR H: INTEGER; 

BEGIN 
H: =A; 

END; 


A:=B; B:=H 
(%* SWAP %) 


BEGIN 
X:= 3, Yı= 4 
SWAP (X, Y; 
WRITELN (X, Y); 
END. 


Listing 5. Ein Beispiel für die 
Verwendung von Wert-Parametern 


"ROGRAM WERTPARAMETER (INPUT, OUTPUT); 


VAR X: INTEGER; 


PROCEDURE PRINTHEX (X: 


INTEGER); 


(% DRUCKE GANZE ZAHL X ALS HEXADEZIMALZAHL IM FORMAT 


$XXXX 9) 


PROCEDURE PRINTBYTE (X: INTEGER); 
(* DRUCKE ZAHL ZWISCHEN O UND 255 ALS BYTE IM FORMAT 


XX%) 


PRINTDIGIT (X: 


INTEGER); 


(* DRUCKE HEXADEZIMALE ZIFFER *) 


BEGIN 


(* ANFANG DES ANWEISUNGSTEILS VON Pi *) 


IF X>9 THEN 
HRITECCHR(X-10+0RDE'A'))) 
ELSE 
WRITE(CX) 
END; (* PRINTDIGIT *%) 
BEGIN 
PRINTDIGITCX DIV 16); 
PRINTDIGIT(X MOD 16); 
END; (* PRINTBYTE *) 


BEGIN 
WRITEU'$'); 
PRINTBYTE(X DIV 256); 
PRINTBYTE(X MOD 256); 
END, (* PRINTHEX *%) 


BEGIN (* HAUPTPROGRAMM *) 
WRITELN(' Geben Sie positive ganze Zahlen ein: ' 
READY; 
WHILE X>0 DO 
BEGIN 
WRITELN' = '); 
READ( X) 
END; 


); 


PRINTHEX(X); 


END, 


Listing 4. Umrechnung dezimal nach hexadezimal 


PROGRAM VEKTOROPERATIONEN (INPUT, 


CONST N = 3; 
IM VEKTOR *%) 


TYPE VEKTOR = ARRAYL1..31 OF REAL; 


VAR X,Y,Z : 


SKALAR: 


VEKTOR; 
INTEGER; 


PROCEDURE HOLEN( VAR V: VEKTOR); 


(* VEKTOR MIT N KOMPONENTEN EINLESEN *) 


VAR I: INTEGER; 

BEGIN 
FOR I:= 1 TO N DO READ(VET)D; 
READLN; 

END; (* HOLEN %) 


PROCEDURE DRUCKEN( V: VEKTOR); 
(* VERKTOR MIT N KOMPONENTEN DRUCKEN *%) 


VAR I: 


INTEGER; 


BEGIN 
FOR I:= 1 TO N DO WRITE(VEII: 8); 
WRITELN; 

END; (* DRUCKEN *) 


zu beachten, daß in der Parameterliste 
nur Typnamen auftreten dürfen. Diese 
müssen Sie also eventuell zunächst 
(außerhalb der Prozedur) im Typverein- 
barungsteil bestimmt haben. Statt 
PROCEDURE DRUCKE(X:ARRAY [1..2] 
OF CHAR); 

muß man schreiben 

TYPE T: ARRAY [1..2] OF CHAR; 
PROCEDURE DRUCKE(X: T); 


Es gibt keinerlei Beschränkung für 
die Typen der Variablen- oder Wertpara- 
meter. Dies soll das Beispiel in Listing 6 
verdeutlichen. In der Mathematik würde 
man ein Array mit N Elementen des Typs 
REAL als einen Vektor reeller Zahlen 
bezeichnen. Mit Vektoren kann man wie 
mit »normalen« Zahlen rechnen. Sind X 
und Y zwei Vektoren und S eine reelle 
Zahl, so kann man zum Beispiel X+Y 
und S*X berechnen. Damit Sie auch mit 
diesen Operationen ein wenig experi- 
mentieren können, sind neben den Pro- 
zeduren ADDIEREN und MULTIPLIZIE- 
REN noch die Prozeduren HOLEN und 
DRUCKEN zur Ein- und Ausgabe von 
Vektoren vorhanden. 

An diesen vier Prozeduren erkennen 
Sie gut den Unterschied zwischen 
Wert- und Variablenparametern. Nur 
wenn über einen Parameter ein Ergeb- 
nis oder eine Eingabe zurückgeliefert 
werden soll, verwendet man Variablen- 
parameter, ansonsten Wertparameter. 
Dadurch ist während der Ausführung 
der aktuelle Parameter gegen (unbeab- 
sichtigtes) Überschreiben geschützt. 

Es gibt jedoch einen weiteren Fall, in 
dem man mit Variablenparametern ar- 
beitet, obwohl keine Ergebnisse zu- 
rückgeliefert werden sollen. Werden 
sehr große Variablen an ein Unterpro- 
gramm übergeben, so existiert jeder 
Parameter im Speicher des Rechners 
doppelt. Einerseits wird der Wert der 


OUTPUT); 


PROCEDURE ADDIEREN (A,B: 


(* C= A + B. DIE 


(*% LAENGE EINES VEKTORS = ANZAHL DER ELEMENTE 


VAR I: INTEGER; 


BEGIN 


VEKTOR; VAR C: VEKTOR); 
ADDITION ERFOLGT KOMPONENTENHEISE *%) 


FOR I:= 1 TO N DO Ct IJ:= ALT] + BEI) 


END; 


PROCEDURE MULTIPLI 
(#* C = 5 * A. JEDE 


VAR I: INTEGER; 


BEGIN 
FOR I:= 1 TOND 
END; (*% MULTIPLIZI 


BEGIN 
WRITEU'X ="); HOLE 
WRITEU'Y ="), HOLE 
ADDIEREN(X,Y, 2); 


WRITEU'X + ="); 

WRITEU'F ="); READ 

MULTIPLIZIEREN (SK 

WRITBEE ER X"): 
END. 


Listing 6. Vektoroperationen in Pascal 


Variablen im aufrufenden Programm 
gespeichert und zusätzlich beim Aufruf 
der Prozedur als lokale Variable. Für die 
Praxis können Sie. sich also merken, 
daß Sie große Arrays (insbesondere auf 
Mikrocomputern ‘mit ihrem kleinen 
adressierbaren Speicherraum) am 
besten als Variablenparameter überge- 
ben. Bei diesen wird nämlich nur eine 
Adresse (also nur wenige Bytes) an die 
Prozedur übergeben, die die Position 
des aktuellen Parameters im Speicher 
bezeichnet. In der Prozedur wird dann 
jeder Zugriff auf diesen Parameter indi- 
rekt über die Adresse ausgeführt. 

Wegen dieser unterschiedlichen For- 
men der Übergabe bezeichnet man den 
Aufruf mit Wertparametern als »call by 
value« und den Aufruf mit Variablenpa- 
rametern als »call by reference«. 

Zu diesem Themengebiet der »Tech- 
nik hinter den Kulissen« gehört auch die 
Verwaltung des Speichers bei einem 
Pascal-Rechner. Neben den (statisti- 
schen) Sichtbarkeitsregeln für die 
Namen von Variablen, muß auch die 
(dynamische) Gültigkeit der Werte von 
Variablen Beachtung finden. 

Beim Eintritt in einen Block ist der 
Wert jeder Variablen, die nicht Parame- 
ter einer Prozedur oder Funktion ist, 
undefiniert. 

So ist zum Beispiel am Programman- 
fang jede Variable unbestimmt. Sie 
besitzt also nicht etwa wie in Basic den 
Wert Null. Bei jedem neuen Aufruf einer 
Prozedur verhält es sich mit allen loka- 
len Variablen bis auf die Parameter 
ebenso. Man kann also nicht davon aus- 
gehen, daß die Variablen die Werte 
ihres letzten Aufrufes beibehalten. 

Vielleicht interessiert es Sie, die Hin- 
tergründe dieser Regel zu erfahren. Bei 
der Übersetzung eines Pascal-Pro- 
gramms bestimmt der Compiler für jede 
Prozedur den Speicherplatzbedarf für 


(*% ADDIEREN *%) 


ZIEREN (S: REAL; A: VEKTOR; VAR C: VEKTOR) 
KOMPONENTE WIRD MIT S MULTIPLIZIERT *) 


0 CIII:= S * ALL) 
EREN *) 


N; 
NY; 


DRUCKEN( 2); 
LN(SKALAR) ; 
ALAR,X, 2); 

DRUCKEN! 2); 


alle lokalen Variablen. Innerhalb dieses 
Speichers weist er jeder Variablen eine 
feste Position zu. Jedoch bleibt die 
absolute Lage des Speicherblockes im 
Computer unbestimmt. 

Erst während der Ausführung wird 
beim Aufruf jeder Prozedur der Spei- 
cherblock für die lokalen Variablen 
reserviert. Umgekehrt wird beim Ende 
der Ausführung einer Prozedur ihr 
gesamter Speicherblock wieder freige- 
geben. Unterprogramme haben aber 
bekanntlich die Eigenschaft, das zuletzt 
aufgerufene Unterprogramm als erstes 
wieder zu verlassen. Ein Beispiel: 

A ruft B 
B ruft C 
CmftD 
D kehrt zurück zu C 
C kehrt zurück zu B 

B kehrt zurück zu A 
Ende von A 

Deshalb werden die Variablen eines 
Pascal-Programms auf einem Stack 
(Stapelspeicher) verwaltet. 

Betrachten wir das Programm in 
Listing 7. Es besteht aus zwei Prozedu- 
ren, die in verschiedener Reihenfolge 
aufgerufen werden (ansonsten aber 
nicht viel Sinnvolles erledigen). Wir wol- 
len nun nach jedem Schritt einen Blick 
auf den Speicher des Rechners werfen 
(Bild 3): 

Zu Programmbeginn (1) ist der ge- 
samte Speicher frei. Beim Eintritt in das 
Hauptprogramm wird zunächst Platz für 
die Variable M des Hauptprogramms 
geschaffen (2). Nun erfolgt der Aufruf 
der Prozedur P1, die ihrerseits Platz für 
die Variable L1 benötigt (3). Nach der 
Rückkehr aus Pi kann dieser Platz 
sofort wieder freigegeben werden (4). 
Der Aufruf P2(FALSE) erfolgt in densel- 
ben Schritten (5 und 6), wobei jedoch 
Platz für zwei Variablen (L2 und auch 
P1) benötigt wird. 


Sie sehen schon jetzt, daß derselbe 
Speicherplatz sowohl für die Variablen 
von P1 als auch von P2 verwendet wird. 
Beim Aufruf von P2(TRUE) (7), ergibt 
sich zunächst der Zustand von (5), je- 
doch wird außerdem in P2 noch P1 auf- 
gerufen, so daß sich schließlich eine 
Speicherverteilung wie in (8) ergibt. 
Offensichtlich liegt beim zweiten Aufruf 
von P1 die Variable L2 an einer anderen 
absoluten Adresse. Bei der Rückkehr 
aus P1(9) und P2(10) werden wieder 
die lokalen Variablenbereiche freige- 
geben. 

Der Stack »wächst« also von unten 
nach oben und nimmt von dort wieder 
nach unten ab, wobei er immer einen 
zusammenhängenden Speicherbereich 
bildet. Daß Ihr Rechner zur Laufzeit der 
Programme einen Stack verwaltet, mer- 
ken Sie spätestens dann, falls bei einem 
Prozeduraufruf kein Platz mehr für die 
lokalen Variablen vorhanden ist. Das 
quittiert das Programm gewöhnlich mit 
der Fehlermeldung »stack overflow«. 


Funktionen 


Inzwischen sind Sie mehrmals auf die 
Formulierung »Prozedur« oder »Funk- 
tion« gestoßen, ohne daß Sie Näheres 
über Funktionen in Pascal erfahren 
haben. Eine Funktion ist eine spezielle 
Form einer Prozedur, die zusätzlich 
noch einen Wert als Ergebnis liefert. In 
der Mathematik gibt es zum Beispiel die 
Maximumfunktion, die das Maximum 
von zwei Zahlen liefert, so daß gilt: 
max [3,4] = 4 
3 + max[0,-7) = 3 

Man kann also das Ergebnis der 
Funktion auch in aritnmetischen Aus- 
drücken verwenden. All diese Möglich- 
keiten gelten bei der Verwendung von 
Funktionen in Pascal, die einige Stan- 
dardfunktionen der Mathematik nach- 
bilden. Dabei verbirgt sich unter der 
Funktion HOCH (Listing 8) die in Pascal 
standardmäßig nicht vorhandene Me- 
thode, um Ahoch B für beliebige Zahlen 
zu berechnen. 

Bei der Definition unterscheidet sich 
eine Funktion von einer Prozedur nur 
durch den Funktionskopf. Hier ersetzt 
das Schlüsselwort FUNCTION das 
Wortsymbol PROCEDURE. Außerdem 
wird zusätzlich am Ende der (eventuell 
leeren) Parameterliste nach einem Dop- 
pelpunkt der Name des Typs angege- 
ben, zu dem das Ergebnis der Funktion 
gehört. Somit lautet der Funktionskopf 
der Funktion MAX, die das (reelle) Maxi- 
mum zweier reeller Zahlen berechnet, 
folgendermaßen: 

FUNCTION MAX (A,B: REAL): REAL; 

Der Ergebnistyp darf kein zusam- 
mengesetzer Typ, wie zum Beispiel 
eine Menge oder ein Array, sein. Um 
innerhalb der Funktion das Ergebnis zu 


bestimmen, verwendet man den Funk- 
tionsnamen in einer Zuweisung: 
IF A>B THEN 
MAX:=A 
ELSE 
MAX:=B 

Natürlich muß auf jeden Fall innerhalb 
einer Funktion eine solche Zuweisung 
stattfinden, damit die Funktion bei der 
Rückkehr einen definierten Wert liefert. 
Funktionsaufrufe sind nur innerhalb von 
Ausdrücken zulässig, während Proze- 
duraufrufe syntaktisch gesehen Anwei- 
sungen sind. 

IF MAX(A,B) >4 THEN ... 
A := MAX(A,B); 
MIN:= -MAX(-A,-B) 

Jetzt folgt eine kleine Sammlung von 
Prozeduren und Funktionen, die Ihnen 
die Programmierung typischer Opera- 
tionen mit Arrays zeigt. Die erste Proze- 
dur in Listing 9 sortiert den Inhalt des 
Arrays in A, das als Parameter überge- 
ben wird. Durch die Wahl von SORT- 
TYPE = INTEGER könnten Sie diese 
Prozedur auch zum Sortieren ganzer 
Zahlen (oder jedes anderen Typs) ver- 
wenden. Das Sortierverfahren ist eines 
der einfachsten und langsamsten über- 
haupt. Bei jedem Durchlauf der äußeren 
FOR-Schleife wird jeweils ein Wert im 
Array an seine korrekte Position 
gebracht und dazu in der inneren 
Schleife der maximale Wert im Restar- 
ray bestimmt. Somit wird im ersten 
Durchlauf die größte Zahl mit der Zahlan 
der letzten Arrayposition vertauscht. Im 
nächsten Durchlauf wechselt die zweit- 
größte Zahl mit der vorletzten Arraypo- 
sition den Platz, bis im letzten Durchlauf 
der kleinste Wert an der ersten Position 
landet. 

Eine etwas exotischere Prozedur 
stellt Listing 10 vor. Hier wird der Kehr- 
wert des ganzzahligen Parameters | 
exakt gedruckt. Bei periodischen Brü- 
chen erscheint ein Pfeil am Beginn der 
Periode. 


Speicherblöcke 


| | Hauptprogramm 
Hi) Prozedur 2 


Hauptprogramm 


Bild 2. Statische Schachtelung 
von Prozeduren 


PROGRAM SPEICHERPLATZ (INPUT, OUTPUT); 


VAR M: REAL; 


PROCEDURE Pi; 


VAR Li: INTEGER; 
BEGIN 
RRITELN (' PROZEDUR P1 MIT Li =', 
L1); 
END; (* Pi %) 


PROCEDURE P2 (AUCHP1: BOOLEAN); 


VAR L2: REAL; 


BEGIN 
WRITELN(' PROZEDUR P2 MIT L2 =', 
L2); 
IF AUCHP1 THEN Pi; 
END; (* P2 %) 


P2 (FALSE); 
P2 (TRUE) 
END. 


Listing 7. Beispielprogramm zur Spei- 
cherorganisation (vergleiche Bild 3). 


Bild 3. Diagramm zur dynamischen Speicherorganisation (siehe Text) 
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1/3 0.13 

1/12 0. 08° 3 

1/17 = 0.10588235294117647 
Wie findet man aber den Anfang (und 

damit auch das Ende) der Periode? 

Zunächst erinnern wir uns an die Rech- 

nung mit Brüchen aus der Schule: 

1.000000 / 7 = O0. 1142857 

10 


10 

Beginnend mit dem REST 1 multipli- 
ziert man immer 10 und dividiert das 
Produkt wieder durch I. Der ganzzah- 
lige Anteil REST DIV list die nächste Zif- 
fer des Ergebnisses, während der Divi- 
sionsrest REST MOD | den REST für 
den nächsten Divisionsschritt bildet. 


Die Periode endet genau dann, wenn 
der REST bereits früher einmal in der 
Berechnung (nicht unbedingt als erster, 
siehe 1/12!) aufgetreten ist. Daher spei- 
chert die Prozedur alle Ziffern in einem 
Array ZIFFERN und für jeden Rest R 
den Index der zugehörigen Ziffern in 
dem Array INDEX. Wird dabei festge- 
stellt, daß dieser INDEX ungleich O ist, 
also dieser Rest bereits einmal auftrat, 
so ist die gesamte Periode bekannt, und 
das Ergebnis kann anschließend ge- 
druckt werden. Probieren Sie es doch 
einmal mit 1/29! 

Zum Verständnis der Prozedur Listing 
11 benötigen Sie noch Kenntnisse über 
die Stringbehandlung in Pascal. Bisher 
wurden in allen Beispielprogrammen 
nur einzelne Zeichen, also Werte vom 
Typ CHAR, verwendet. Möchte man 
jedoch Worte, Zeilen oder Sätze, die 
aus einer Folge von Zeichen bestehen, 
verarbeiten, so muß man ein Array aus 
Zeichen definieren. 

CONST TEXT='0tto Anna'; 
TYPE STRING = ARRAY [1..9] 
OF CHAR; 
VAR WORT : STRING; 

ZEILE: ARRAY [1.80] 
OF CHAR; 

Text ist eine Konstante mit dem Typ 
ARRAY [1..9] OF CHAR, da sie aus 
neun Zeichen besteht. Denselben Typ 
besitzt die Variable Wort. Die Variable 
Zeile umfaßt 80 einzelne Zeichen. 
Wichtig ist jetzt die Tatsache, daß jedem 
String eine feste Länge zugeordnet ist. 
Esist also nicht möglich, in Wort nur vier 
Zeichen zu speichern, man muß viel- 
mehr den Rest des Strings zum Beispiel 
mit Leerzeichen füllen: 


WORT:= '"ANNA_____'; (korrekt) 
WORT:= 'ANNA'; (falsch) 
WORT:= TEXT; (korrekt) 
WORT:= ZEILE; (falsch) 
Zeile:= WORT; (ebenfalls 
falsch!) 


FUNCTION SIGNUM (X: REAL): 
(* Vorzeichen: 0, 


INTEGER; 
-1 oder +1 *) 


BEGIN 
IF X>0 THEN SIGNUM: = 1 
ELSE 
IF X<0O THEN SIGNUM: = -1 
ELSE SIGNUM: = 0 
END; (%*% SIGNUM *) 


FUNCTION HOCH (X, Y: REAL) 
(* ERGEBNIS IST X " Y *) 
BEGIN 

HOCH: = EXP( Y * LOG(X)); 
END; (”* HOCH *%) 


FUNCTION FAKULTAET (N: INTEGER): REAL; 
(*% ERGEBNIS ISTN! «12 I3ng * 
PL.) eo 
VAR P: REAL; 
I; INTEGER; 


B:4 1.0% 

FOR I:= 2 TONDOP:=P*1I 

FAKULTAET: = P 
END; (* FAKULTAET *) 
GEOMETRISCHES_MITTEL(A, B: REAL): 
BEGIN 

GEOMETRISCHES_MITTEL: = SQRT( A*B) 
END; 


REAL; 


ARITHMETISCHES_MITTEL(CA, B, C: REAL): 
REAL; BEGIN 
ARITHMETISCHES_MITTEL: = 
IA HB T 2.3 
END; 


Listing 8. Einige Beispiele für 
Funktionen in Pascal 


Zuweisungen sind also nur zwischen 
Strings gleicher Länge möglich, da 
weder überflüssige Zeichen abge- 
schnitten noch zu kurze Strings mit 
Leerzeichen erweitert werden. Ande- 
rerseits kann man jedoch auch Strings 
gleicher Länge miteinander verglei- 
chen. Dabei bestimmt das Ergebnis des 
Vergleiches den zugrundeliegenden 
Zeichensatz. Im ASCIlI-Code gilt bei- 


spielsweise 

"ALPHA! < 'BETA ' 
'ALPHA' <'alpha' 
ALP Y SStALPHR! 


Die hier gemachten Einschränkun- 
gen gelten für Standard-Pascal. Für 
Turbo-Pascal und andere Compiler gel- 
ten sie nicht. 

Die Funktion POSITION in Listing 11 
liefert die Position von Wort in der 
Tabelle TAB. Diese Tabelle soll aufstei- 


CONST N = 100; 
TYPE SORTIERELEMENT = REAL; 
SORTIERFELD = ARRAY [UG.. 06) 
OF SORTIERELEMENT; 


PROCEDURE SORT( VAR A: SORTIERFELD); 


VAR 1,J,K:; INTEGER; 
MAX : SORTIERELEMENT; 


BEGIN 
FOR J:= 0G DOWNTO UG+1 DO 
BEGIN 
MAX: = ALUG]I; K:= UG; 
FOR I:= UG+1 TO J DO 
IF AULI) >» MAX THEN 
BEGIN 
K:= I; MAX: = ALL) 
D; 
AtKl:= ALJ); Aldl:= MAX 
END; 
END; (* SORT %) 


Listing 9. Sortieren durch Auswahl 


gend mit Strings gefüllt sein. Aus der 
Funktion resultiert der Wert O, falls Wort 
nicht in TAB enthalten ist. 

Falls Sie einmal ein Programm schrei- 
ben möchten, das Ihnen alle Namen in 
einem Pascal-Programm ausdruckt, so 
müssen Sie zunächst alle Schlüssel- 
worte erkennen. Hierzu könnten Sie die 
Funktion POSITION verwenden. In TAB 
werden alle Schlüsselworte in alphabe- 
tischer Reihenfolge eingetragen (AND, 
ARRAY, BEGIN, ...). Dann ergeben sich 
folgende Funktionsergebnisse: 


POSITION( 'AND 1,DAB) = 1 
POSITION( 'BEGIN ',TAB) = 3 
POSITION( 'WITH ',TAB) = 39 
POSITION( 'WIRSING !,TAB) = 0 


Obwohl die Funktion etwas kompli- 
zierter aussieht, arbeitet sie für große 
Arrays wesentlich schneller als die ein- 
fache Version aus Listing 12, die das 
Array schrittweise von hinten nach 
vorne durchsucht. Statt dessen ver- 
wendet die erste Funktion zwei Zeiger 
R und L auf den rechten und linken 
Rand des Teilarrays, in dem sich der 
gesuchte Wert befinden muß. In jedem 
Schritt wird nun der Mittelpunkt M des 
Intervalls untersucht. Steht an dieser 
Stelle ein Wort, das größer als das 
Suchwort ist, so liegt das Suchwort im 
Intervall L bis M-1, ansonsten muß es im 
Interval M+1 bis R zu finden sein. Die 
Suche istbeendet, falls die ZeigerL und 
R sich überschneiden. Offensichtlich 
wird in jedem Schritt das Array halbiert, 
was den Geschwindigkeitsvorteil 
gegenüber Listing 12 ausmacht. 

Noch ein Wort zu der linearen Suche 
in Listing 12: Warum wurde nicht ein- 
fach die Schleife 


I:= ANZAHL; 

WHILE (WORT <>TAB[I] AND 
(1 <,>0) DO IL :=I-1; 
POSITION:= I 


verwendet? Ist in diesem Fall Wort nicht 
in TAB vorhanden, so ist im letzten 
Schleifendurchlauf I=0, was im ersten 
Teil der WHILE-Bedingung einen Zugriff 
auf das (nicht existierende) Element 
TAB[0] zur Folge hat. Normalerweise 
erkennt ein Pascal-Laufzeitsystem sol- 
che Indizierungsfehler und gibt dann 
eine Fehlermeldung aus. 


Rekursion 


Das letzte Programm in Listing 13 ist 
ein besonders schönes Beispiel für 
eine sehr nützliche Eigenschaft von 
Prozeduren und Funktionen in Pascal. 
Falls Sie sich an die Ausführungen über 
die Speicherverwaltung erinnern, wis- 
sen Sie noch, daß bei jedem Prozedur- 
aufruf neuer Speicherplatz für die loka- 
len Variablen bereitgestellt wird. Des- 


AO 
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halb kann sich eine Prozedur auch 
selbst aufrufen, ohne daß dadurch der 
Inhalt der lokalen Variablen zerstört 
würde. Den Selbstaufruf einer Prozedur 
oder Funktion nennt man Rekursion. 
Das Programm in Listing 13 verwendet 
nun eine rekursive Prozedur PRO- 
BIERE__ZEILE, um das »Problem der 
acht Damen« zu lösen. 

Die Aufgabe besteht darin, acht Köni- 
ginnen, die nach den Schachregeln alle 
Figuren in ihrer Zeile und Spalte sowie 
in beiden Diagonalen bedrohen, so auf 
ein Schachbrett zu setzen, daß keine 
Figur eine andere bedroht. Bild 4 zeigt 
die Felder, die eine Dame angreift, wäh- 
rend Bild 5 eine zulässige Lösung zeigt. 

Die Lösung stellt ein sogenannter 
Backtracking Algorithmus. Hierbei pro- 
biert man eine Reihe von Schritten aus, 
bis man feststellt, daß dieser Weg in 
eine Sackgasse führt. In diesem 
Moment beginnt man die letzte Ent- 
scheidung rückgängig zu machen und 
einen neuen Weg zur Lösung zu finden. 
Indem man systematisch alle möglichen 
Kombinationen durchsucht, wird auf 
jeden Fall eine Lösung (sofern vorhan- 
den) gefunden. 

In diesem konkreten Beispiel positio- 
niert man zunächst eine Dame an eine 
zulässige Stelle der ersten Zeile. Dabei 
wird notiert, welche Diagonalen und 
welche Spalte die Dame bedroht. An- 
schließend wird in der zweiten Reihe 
eine ungefährdete Position gesucht, 
die die zweite Dame besetzt. Diese Pro- 
zedur wiederholt sich so lange, bis die 
achte Zeile belegt und die Lösung 
gefunden ist. Im Normalfall ist natürlich 
bereits in der dritten oder vierten Zeile 
jedes Feld gefährdet, so daß die Suche 
in eine Sackgasse führt. Dann wird die 
Dame von ihrem Feld wieder entfernt 
und in der letzten Reihe die Dame auf 
das nächste freie Feld gesetzt. Mit die- 
ser Strategie erhält man alle 92 Lösun- 
gen auf einem 8 x 8-Brett. 

Das größte Problem besteht darin, 
möglichst schnell zu testen, ob eine 
Diagonale oder eine Spalte bereits 
belegt ist. Deshalb werden drei boole- 
sche Arrays geführt, die für jede Diago- 
nale und Spalte den Wert TRUE enthal- 
ten, falls diese nicht bedroht ist. Natür- 
lich muß die Information in diesem Array 
am Programmanfang gelöscht und bei 
jedem Zug und jeder Zugrücknahme 
aktualisiert werden. Bild 6 zeigt, wie 
man aus dem Zeilen- und Spaltenindex 
I,J die Nummer der jeweiligen Diagona- 
len durch Addition und Subtraktion 
erhält. 

Bisher wurde nur das Array als 
zusammengesetzter Typ verwendet. 
Durch die Flexibilität bei der Wahl des 
Indextyps und des Typs der Elemente 
konnten sehr verschiedenartige Pro- 
bleme behandelt werden. Bevor wir uns 


BEGIN 
IF I»MAXIMAL THEN 
ELSE 
BEGIN 


WRITEC'1 / ', I, ' =0.'); 


(* NOCH IST KEIN REST AUFGETRETEN, 


FOR J:= 0 TO I-1 DO 
INDEXLJI:= 0; 


K ı= 0; 
REST: = 1; 
REPEAT 

K:= Kt; 


(* WIR BERECHNEN 


INDEXI REST]: = K; 


REST: = ZEHN * REST; 

ZIFFER(UK]):= REST DIV I; 

REST := REST MOD I; 
UNTIL INDEXI REST) <>0; 


(%* JETZT NOCH DAS ERGEBNIS DRUCKEN, 


(* ERSTEN ZIFFER IN DER PERIODE 
FOR J:= 1 TO INDEXIRESTI-1 DO 


WRITECCHR( ZIFFERL J] +ORDE' 0'393); 


WRITE('"'); 
FOR J: =INDEXI REST) TO K DO 


WRITE(CCHR( ZIFFERL J] +ORDE'0'))); 


WRITELN 
END; 
END; (* KEHRHERT *) 


PROCEDURE KEHRWERT (I: INTEGER); 


WRITELN(' DIE ZAHL IST ZU GROSS! ') 


DESHALB INDEX LOESCHEN: %) 


(* DIE ERSTE ZIFFER WIRD BERECHNET *) 


17/1 *) 


(* BIS DIESER REST SCHON EINMAL BERECHNET *) 


INDEXLREM) IST DIE POSITION DER 


(* DRUCKE DEN EXAKTEN KEHRWERT DER ZAHL I MIT ANSABE DER PERIODE 


CONST ZEHN = 10; 
MAXIMAL = 300; 


INTEGER; 
REST 


ZIFFER 
INDEX 


(* BASIS DES DEZIMALSYSTEMS 
(* MAXIMALE GROESSE FUER I UND DIVISIONSREST 
INTEGER;, (* LAUFENDER DIVISIONSREST BEI STELLE K 


ARRAYL1.. MAXIMAL) OF INTEGER; 
ARRAYLO.. MAXIMAL] OF INTEGER; 


Listing 10. Exakte Berechnung des Kehrwertes 


CONST ANZAHL = 30; 


TYPE STRING = ARRAYL1..11) OF CHAR; 


(% LAENGE DER SUCH-TABELLE 


(* LÄNGE EINES WORTES = 11 ZEICHEN 


TABELLE= ARRAYL1.. ANZAHL) OF STRING; 


FUNCTION POSITION (WORT: STRING; 


(* IN TAB STEHT. 


VAR L,R,M: INTEGER; 
BEGIN 
L: =1; 
REPEAT 
M: = (L+R) DIV 2; 
IF WORT<=TABLM) THEN R: = 
IF WORT>=TABLMI THEN L: = 
UNTIL L>R; 
IF L>R+1i THEN POSITION: =R+1; 
ELSE POSITION: =0 
END; (* POSITION *) 


R: =ANZAHL; 


M-1; 
M+1; 


Listing 11. Binäre Suche 


PROCEDURE POSITION (WORT: STRING; 


VAR I: INTEGER; 


BEGIN 
I: =ANZAHL; 


VAR TAB: 
TAB MUSS AUFSTEIGEND ALPHABETISCH SORTIERT SEIN. 
FUNKTION IST DIE POSITION VON WORT IN TAB BZW. 0, 


VAR TAB: 
(* EINFACHE LINEARE SUCHE NACH WORT IN TAB. 


TABELLE); 
DAS ERGEBNIS DER 
FALLS WORT NICHT 


MITTELPUNKT DES INTERVALLS L..R 


"WORT LIEGT LINKS VON DER MITTE 


WORT LIEGT RECHTS VON DER MITTE 
BIS ZEIGERKOLLISION 

WORT GEFUNDEN 

WORT NICHT VORHANDEN 


TABELLE); 
TAB MUSS NICHT SORTIERT SEIN *) 


WHILE (TABLIJ<>WORT) AND (I<>1) DO I: =I-1; 


IF TABEI)=WORT THEN POSITION: =I 
ELSE POSITION: =0 
END; (* POSITION %) 


Listing 12. Lineare Suche 


weiteren Datentypen in Pascal zuwen- 
den, kommen noch zwei weitere Eigen- 
schaften von Arrays zur Sprache. 

1. Man kann auch das Array als Gan- 
zes in einer Zuweisung verwenden, falls 
auf der rechten und linken Seite des 
Zuweisungsoperators je ein Array des- 
selben Typs steht: 


VAR A,B: ARRAY[1..100] OF REAL; 
A:=B; 

Mit dieser Zuweisung werden also 
100 reelle Zahlen aus dem Array B in 
das Array A kopiert. Somit enthält diese 
allgemeine Regel die oben genannten 
Bedingungen, unter denen eine Zuwei- 
sung zwischen Strings zulässig ist. 
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2. Arrays können als Elemente nicht 
nur einfache, sondern auch zusammen- 
gesetzte Typen enthalten. Wiederum 
hatten wir diese Tatsache bereits bei 
der Besprechung der Strings vorweg- 
genommen, als wir definierten: 

TYPE STRING = ARRAY[1..11] 
OF CHAR; 

TABELLE= ARRAY[1..ANZAHL] 
OF STRING; 

Ist der Elementtyp ein Array, so 
spricht man oft auch von mehrdimen- 
sionalen Arrays. In diesen Fällen kann 
man auch eine vereinfachte Notation 
verwenden. Statt 
VAR A,B: ARRAY [1..N] OF 

ARRAY [1..M] OF 
ARRAY [1..K] OF REAL; 
A[1J[1][1]:= B[L2][3][4] 
schreibt man dann: 
VAR A,B: ARRAY[1..N,1..M,1..K] 
OF REAL; 
A[1,1]:=B[2,3,4] 

Bei der Arbeit mit solchen mehrdi- 
mensionalen Tabellen verwendet man 
sehr häufig Ausschnittstypen. Betrach- 
ten Sie zum Beispiel (Bild 7), das eine 
zweidimensionale Tabelle mit Umsatz- 
zahlen (Millionen DM ?) für fünf Jahre 
mit jeweils zwölf Monaten enthält. Das 
kann man schreiben als: 

TYPE MONAT = 1..12; 


JAHR = 1980. .1985; 
VAR UMSATZTABELLE = ARRAY 
[JAHR, MONAT] 
OF REAL; 
M : MONAT; 
J : JAHR; 


Die Variablen M und J besitzen die 
Ausschnittstypen MONAT und JAHR 
und können daher nur die Werte 1 bis 
12 oder 1980 bis 1985 annehmen. Sie 
eignen sich also hervorragend als Zei- 
ger in die zweidimensionale Tabelle. 
Jede Zuweisung an eine Variable eines 
Ausschnittstyps wird zur Laufzeit auf 
gültige Werte geprüft, so daß bei fol- 
genden Anweisungen das Programm 
mit einer Fehlermeldung endet: 

J:= 12; M:= 1985 

Einmal schützt also der Compiler vor 
irttümlichen Zuweisungen. Listing 14 
zeigt drei Funktionen, die in solchen 
Umsatztabellen Zeilen-, und Spalten-, 
oder Gesamtsummen berechnen. Das 
Hauptprogramm verwendetdiese Funk- 
tionen für die Ermittlung von Umsätzen 
für zwei Produkte (Farben und Lacke). 

Allgemein kann man von jedem skala- 
ren Typ Ausschnittstypen bilden: 

TYPE BUCHSTABEN = 'A'..'2'; 
ZIFFERN =. "OD 

Eine Variable eines Ausschnittstyps 
kann überall dort verwendet werden, 
wo auch eine Variable des zugehörigen 
Grundtyps (INTEGER oder CHAR) ste- 
hen kann. Unter Umständen kann die 
Verwendung von Ausschnittstypen 
(zum Beispiel als Elementtyp in großen 


Bild 4. Beispiel für die von einer Dame 
bedrohten Felder 


Bild 5. Eine von mehreren Lösungen 
des Acht-Damen-Problems 


+ + 
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Bild 6. Berechnung der Diagonalen im Programm ACHT DAMEN (links: Addition 
der Zeilen- und Spaltennummern, rechts entsprechend Subtraktion). 


Arrays) bei einigen Compilern auch 
Speicherplatz einsparen. Mit der 
Kenntnis, daß die Variable JAHR nur die 
Werte 1980 bis 1985 annnimmt, 
genügt 1 Byte zur Speicherung des 
Wertes (statt 2 oder 4 Byte für die nor- 
malen INTEGER-Zahlen). 


Ei Date 
efinleren 


Eine andere Methode, neue Typen zu 
definieren, besteht darin, daß man alle 
Werte aufzählt, die dieser Typ annimmt: 
TYPE AMPEL = (ROT, GELB, GRUEN); 

FAMILIENSTAND = (LEDIG, 
VERHEIRATET, 
GETRENNT, 
GESCHIEDEN, 
VERWITWET); 
(BAUER, 
LAEUFER, 
SPRINGER, 


FIGUR = 


DAME, 
KOENIG); 
(SCHWARZ, 
WEISS); 

Diese Typen nennt man Aufzählungs- 
typen. Formal gesehen sind zum Bei- 
spiel ROT und KOENIG Konstanten des 


FARBE. = 


jeweiligen Typs. Durch die Reihenfolge 
bei der Typendeklaration wird eine Ord- 
nung auf den Konstanten definiert: 
ORD(ROT) = O 
ORD(GELB) = 1 
ORD(GRUEN) = 2 
Somit sind auch Vergleiche zwischen 
Variablen eines Aufzählungstyps sinn- 
voll: 
VAR HAUPTAMPEL : AMPEL; 
IF HAUPTAMPEL <= GELB THEN ... 
Um den Nachfolger und Vorgänger im 
Wertebereich zu erhalten, gibt es die 
Funktionen PRED (predecessor) und 
SUCC (successor): 
SUCC(ROT) = GELB 
SUCC(LAEUFER) = SPRINGER 
PRED(VERHEIRATET) = LEDIG 
PRED(WEISS) = SCHWARZ j 
ORD, SUCC und PRED sind übrigens 
für jeden skalaren Typ zulässig, da alle 
skalaren Typen geordnet sind: 
ORD(FALSE)=0 
SUCC (FALSE) =TRUE 
SUCCL!AT)- = !B! 
PRED(0) = -1 
Viele hoffnungsvolle Programme von 
Anfängern enthalten direkte Ein- und 
Ausgabeanweisungen für Werte von 
Aufzählungstypen: 
WRITE (HAUPTAMPEL); 
READ (HAUPTAMPEL); 
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Diese Anweisungen sind falsch! Nur 
während der Übersetzung sind dem 
Compiler die Namen der Werte des 
Typs bekannt. Zum Zeitpunkt der Aus- 
führung sind alle Aufzählungstypen 
durch Zahlen ohne Verweise auf irgend- 
welche Namen codiert. Man muß also 
die Umwandlung zwischen dem Auf- 
zählungstyp und dem auszugebenden 
Namen selbst vornehmen: 

PROCEDURE DRUCKE_AMPEL(A:AMPEL) ; 
BEGIN 

WRITE('Die Ampel zeigt); 

CASE A OF 


ROT WRITELN('rot'); 

GELB : WRITELN('gelb'); 

GRUEN: WRITELN('grün'); 
END; 


END; (* DRUCKE_AMPEL %*) 

Natürlich können auch Auschnittsty- 
pen von Aufzählungstypen gebildet 
werden: 

TYPE ENDSPIELFIGUR = 
LAEUFER. .KOENIG; 

Mit den Aufzählungstypen lernen Sie 
den letzten skalaren Typen in Pascal 
kennen. Alle weiteren Typen, die den 
Rest des Artikels einnehmen, sind 
zusammengesetzte Typen wie das 
Array. Mengen von Zahlen sind Ihnen 
sicher bekannt. Um einen Mengentyp 
zu deklarieren, verwendet man die 
Wortsymbole SET und OF, denen ein 
skalarer Typ folgen muß: 

TYPE FIGUREN = SET OF FIGUR; 
VAR MEINE, DEINE: FIGUREN; 

Mit den Mengen-Variablen MEINE 
und DEINE kann man beispielsweise 
über die geschlagenen Figuren führen. 
Am Spielbeginn gilt: 

MEINE:= [BAUER...KOENIG]; 
DEINE:= MEINE; 

IF [TURM,DAME,KOENIG] < 
=MEINE THEN... 

Mit dieser Abfrage wird also getestet, 
ob ein Spieler noch Turm, Dame und 
König besitzt. Daeine Menge jedes Ele- 
ment nur einmal oder keinmal enthält, 
werden Mengen überall dort verwen- 
det, wo das Vorhandensein einer 
gewissen Eigenschaft signalisiert wer- 
den soll. 

Arrays und Mengen fassen mehrere 
Werte eines Typs zu einem zusammen- 
gesetzen Typ zusammen. Besonders in 
großen Programmen ist es jedoch auch 
sinnvoll, Werte verschiedener Typen zu 
einer Einheit zu verbinden. Zur Kon- 
struktion solcher Typen verwendet man 
in Pascal Recordtypen (Verbundtypen;): 
TYPE POSITION = RECORD 

X,Y: REAL; 
END; 
ADRESSE = RECORD 
NAME, VORNAME: 
ORT, STRASSE : 


STRING; 
STRING; 


PROGRAM ACHT_DAMEN (INPUT, OUTPUT); 


CONST N = 8; 
N2 = 16; 
"AR DAME : ARRAY se N OR 
SPALTE_FREI: ARRAY av8 OF 
DIAGI_FREI : ARRAY ae OF 
DIAG2_FREI : ARRAY «4 OF 
LOESUNG : INTEGER; 
I : INTEGER; 


PROCEDURE DRUCKELOESUNG; 
(* ZEIGE DIE POSITION DER DAMEN AN, 
VAR ZEILE, SPALTE: INTEGER; 
BEGIN 
LOESUNG: = LOESUNG + 1; 
WRITELN,;, WRITELN; WRITELN(' LÖSUNG', 
FOR ZEILE: =1 TO N DO 
BEGIN 
FOR SPALTE: =1 TO N DO 


(* ACHT DAMEN AUF EINEM 8 * 8 SCHACHBRETT *%) 
(kz2%“N%) 


INTEGER; 
BOOLEAN; 
BOOLEAN; 
BOOLEAN; 


ERHÖHE DEN ZÄHLER FÜR DIE LÖSUNGEN %) 


LOESUNG: 2, ':' 


IF SPALTE = DAMEI ZEILE) THEN WRITE(' *') 
ELSE WRITE(' +'); 


WRITELN; 
END; 
END; (%* DRUCKELOESUNG %) 


PROCEDURE SETZE_ZEILE(I: INTEGER); 


(* SUCHE FREIE POSITION FÜR DAME IN ZEILE I. 
WIRD EINE DAME IN ZEILE I+1 GESETZT ODER DIE VOLLSTAENDIGE *) 


(* WURDE, 
(* STELLUNG ANGEZEIGT. 

VAR J: INTEGER; 
BEGIN 


FOR J:= 1 TO N DO 


FALLS EIN PLATZ GEFUNDEN %) 


SONST ERFOLGT EIN RUECKSPRUNG. *) 


IF SPALTE_FREILJ) AND DIAG1_FREILI+J]) AND DIAG2_FREILJ-I) THEN 


BEGIN (* HIER KANN 
DAMELII:= 9; 
SPALTE_FREI (9) := 
DIAGI_FREI (I+J]: = 
DIAG2_FREI [J-I]: = 


FALSE; 
FALSE; 
FALSE; 


JETZT DIE DAME GESETZT WERDEN: *) 


IF I=N THEN (* ALLE DAMEN GESETZT, LÖSUNG DRUCKEN! *) 


DRUCKELOESUNG 
ELSE 
SETZE_ZEILE(I+1); 


(*% IN DER NÄCHSTEN ZEILE WEITERSUCHEN %) 


(* JETZT DEN LETZEN ZUG RÜCKGÄNGIG MACHEN: 


SPALTE_FREI [J] := TRUE; 
DIAGI_FREI (I+J):= TRUE; 
DIAG2_FREI [J-Il:= TRUE; 
END; 
END; (* SETZE_ZEILE *) 
BEGIN 
(* SPIELBRETT IST NOCH LEER: *) 
FOR I:= 1 TO 8 
FOR I:= 2 TO N2 DO DIAGI_FREI 
FOR I:=-N TO N DO DIAG2_FREI 
LOESUNG: = 0; 
SETZE_ZEILE(1); 
END. 


DO SPALTE_FREI (I):= TRUE; 
[Il:= TRUE; 
[Il:= TRUE; 


Listing 13. Das Acht-Damen-Problem, ein Beispiel für einen 


rekursiven Algorithmus. 


Bild 7. Darstellung von Jahresumsätzen als Beispiel 


VAR P1,P2 : POSITION; 
ADR : ADRESSE; 
Nach einer solchen Deklaration 


bezeichnet man P1, P2 und ADR als 
Records. Ein Record besitzt einzelne 
Felder, auf die man durch Angabe ihres 
Namens nach einem Punkt zugreift: 
Pl.X:= 30; 


P1.Y:= 40; 

ADR.ORT := 'MONOPOLY'!; 
ADR.STRASSE:= 'Schloßallee'; 
ADR.HAUSNR := 4; 

Andererseits kann man aber auch 
den Record als Ganzes ansprechen: 
Pl:= P2 

Durch diese Zuweisung werden alle 


HAUSNUMMER : INTEGER; 
PIZ U: INTEGER; 
END; 
UND 
:OMFUTER 
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PROGRAM UMSAETZE (INPUT, OUTPUT); 
TYPE MONAT = 1..12; 
JAHR = 1980..1985; 
UMSATZTABELLE: 


VAR FARBEN, LACKE: UMSATZTABELLE; 


FUNCTION JAHRESSUMME( J: JAHR, VAR T: 


(* BERECHNE DIE SUMME DER MONATSUMSÄTZE IM JAHR Ü 


. TABELLE T: *) 


VAR M: MONAT; 
S: REAL; 


BEGIN 
S:= 0; 
FOR M: = 1 TO 12 DO S:= S + TLJ,MI; 
JAHRESSUMME: = S 

END; (* JAHRESSUMME *) 


FUNCTION MONATSSUMME( M: MONAT; VAR T: 


BIS 1985 *) 


VAR J: JAHR; 
S: REAL; 


ARRAY LJAHR, MONATI OF REAL; 


UMSATZTABELLE): 


UMSATZTABELLE): 
(* BERECHNE DIE SUMME ALLER UMSÄTZE IM MONAT M FÜR 1980 


FOR J:= 1980 TO 1985 DO S:= S + TLJ,M; 


MONATSSUMME: = S 
END; 


PROCEDURE GESAMTSUMME (VAR T: 


(* MONATSSUMME *) 


UMSATZTABELLE): REAL; 


(* BERECHNE DIE SUMME ALLER UMSÄTZE *) 


REAL; 
IN DER VAR J: JAHR; 


S: REAL; 


BEGIN 
S:= 0; 


FOR d: = 1980 TO 1985 DO S:= S + JAHRESSUMME(J, D; 


GESAMTSUMME: = S 
END; 


BEGIN 


(* GESAMTSUMME %) 


(* HIER WERDEN DIE UMSÄTZE FÜR FARBEN UND LACKE VORBELEGT *) 


REAL; 


WRITELN( ' UMSATZ FARBEN 1980: ', 
WRITELN( ' UMSÄTZE LACKE JANUAR 1980-1985: '); 


JAHRESSUMME( 1980, FARBEN); 
MONATSSUME(1, 


LACKE); WRITELN(' UMSÄTZE LACKE UND FARBEN INSGESAMT: ', 
GESAMTSUMME( LACKE) + GESAMTSUMME (FARBEN); 


END. 


Listing 14. Bearbeitung zweidimensionaler Tabellen 


Felder im Record übertragen. Wichtig 
und charakteristisch für das Typkon- 
zept in Pascal ist die Tatsache, daß 
zusammengesetzte Typen auch mehr- 
stufig aufzubauen sind: 
VAR POSITIONEN: ARRAY [1...99] OF 
POSITION; 
Den umgekehrten Fall, daß ein 
Record aus Arrays besteht, finden Sie 
bereits im Beispiel des Typs ADRESSE. 
Dort sind die Felder NAME und VOR- 
NAME vom Typ STRING, den wir ja als 
TYPE STRING = ARRAY [1..11] 
OF CHAR; 
vereinbart hatten. Sollen viele Operatio- 
nen mit den Feldern eines Records 
durchgeführt werden, so ist die stän- 
dige Wiederholung des Variablenna- 
mens lästig. Für diesen Fall existiert die 
WITH-Anweisung: 
WITH Recordvariable DO Anweisung 
So kann man folgende Zuweisungen 
ADR.NAME :='Hugendubel'; 
ADR.VORNAME:='"Kunigunde'; 
ADR.ORT :='7 Berge'; 
ADR.STRASSE:='7 Zwerge'; 
schreiben als: 


WITH ADR DO 

BEGIN 
NAME = 'Hugendubel'; 
VORNAME:= 'Kunigunde'; 
ORT = '7 Berge'; 
STRASSE:= '7 Zwerge'; 

END; 


Wie alles in Pascal können auch 
WITH-Anweisungen geschachtelt wer- 
den. Nach der geschachtelten Record- 
Deklaration 
TYPE DATUM = RECORD 


TAG I..315 

MONAT 1.12; 

JAHR INTEGER; 
END; 


3’ 
BANKAUSZUG = RECORD 
DATUM: DATUM; 
KONTOSTAND: REAL 
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END; 

VAR MEINBANKAUSZUG: BANKAUSZUG; 
prüft man folgendermaßen das Datum 
auf dem Bankauszug: 
WITH MEINBANKAUSZUG DO 
BEGIN 

IF KONTOSTAND >O THEN 

WITH DATUM DO 

WRITELN(TAG, '.',MONAT,'.', 

JAHR) 
END; 


Dabei muß sich die innere WITH- 
Anweisung auf ein Feld in dem Record 
der äußeren WITH-Anweisung bezie- 
hen. Hier ist dies also das Feld MEIN 
BANKAUSZUG.DATUM. Bemerkens- 
wert sind noch die Sichtbarkeitsregeln 
für Feldnamen. Man kann ohne Na- 
menskonflikte Variablen mit dem Feld- 
namen aus der Record-Deklaration 
definieren. Der Feldname ist durch 
einen Punkt oder die WITH-Anweisung 
an den Variablennamen des Records 
gebunden. 

Am besten verdeutlicht wiederum ein 
Beispiel die Arbeit mit Records. In 
Listing 15 wird der Typ 
TYPE BRUCH = RECORD 

ZAEHLER, NENNER: INTEGER; 
END; 
definiert. Man möchte also auch gebro- 
chene Zahlen »exakt« darstellen. Nun 
lernt man aber in der Schule, daß 
123456 


245912 

dieselbe Zahl darstellen. Deshalb wer- 
den bei allen Operationen Zähler und 
Nenner gekürzt dargestellt. Zum Kür- 
zen muß man den größten gemeinsa- 
men Teiler (ggT) von Zähler und Nenner 
kennen. Beim Addieren werden die bei- 
den Brüche auf einen Hauptnenner 
gebracht, der natürlich möglichst klein 
bleiben soll. Daher ist im Programm 
auch eine Funktion zur Berechnung 


des kleinsten gemeinsamen Vielfachen 
(kgV) enthalten. Nach der Erweiterung 
der beiden Zähler ergibt sich durch 
Addieren der Zähler des Summenbru- 
ches. Wegen der teilerfremden Aus- 
gangsbrüche und der Wahl des Haupt- 
nenners spart man es sich, den Zähler 
gegen den Nenner zu kürzen. 


Die Multiplikation verläuft wie in der 
Schule nach der Regel Zähler mal Zäh- 
ler und Nenner mal Nenner. Jedoch 
werden zuvor die Brüche kreuzweise 
gekürzt, um die Produkte möglichst 
klein zu halten. Vielleicht ist es eine 
gute Denksportaufgabe, zu überlegen, 
warum nach der Multiplikation Zähler 
und Nenner teilerfremd sind. 


Die Subtraktion ist einfach auf die 
Addition zurückzuführen, ebenso wie 
die Division durch Kehrwertbildung auf 
die Multiplikation zurückführt. Bei der 
Berechnung des Kehrwertes ist jedoch 
auf eine korrekte Behandlung des Vor- 
zeichens zu achten. 

Normalerweise eignen sich zur Erläu- 
terung von Records Beispiele aus der 
kaufmännischen Datenverarbeitung, da 
man einen Record am einfachsten als 
ein Formblatt beschreiben kann, das 
verschiedene Felder enthält, die nur 
Werte gewisser Typen beinhalten dür- 
fen. 

TYPE KRAFTFAHRZEUGSCHEIN = 

RECORD 

WAGEN: KENNZEICHEN; 
WOHNORT, STANDORT: ADRESSE; 
LEISTUNG: INTEGER; 

END; 

Diese Deklaration setzt natürlich vor- 
aus, daß zuvor die Typen KENNZEI- 
CHEN und ADRESSE (zum Beispiel 
selbst als Records) definiert wurden. 

Es gibt jedoch auch Felder, die nur 
dann gültig sind, falls in einem anderen 
Feld ein bestimmter Wert steht. 


TYPE PERSONALAKTE = 
RECORD 
NAME : STRING; 
VORNAME: STRING; 
CASE STAND: FAMILIENSTAND OF 
LEDIG: (); 
VERHEIRATET ,GETRENNT: 
(HEIRAT: DATUM); 
GESCHIEDEN: 
(SCHEIDUNG: DATUM; 
ALIMENTE : BOOLEAN); 


VAR AKTE1: PERSONALAKTE; 


Dieses Beispiel zeigt einen varianten 
(veränderlichen) Record. Er besteht 
aus einem festen Teil (den Feldern 
NAME und VORNAME), dem ein verän- 
derbarer Teil folgt. Dieser Teil wird durch 
das Schlüsselwort CASE eingeleitet. 
Ihm folgt ein Feldname mit Typangabe. 
In Abhängigkeit der Werte dieses skala- 
ren Typs besitzen die nachfolgenden 
Feldlisten in runden Klammern Gültig- 
keit. 

Nach der Zuweisung »AKTE1.STAND: 
= LEDIG« sind nur die Felder NAME 


und VORNAME gültig. Ist jedoch 
»AKTE1.STAND = VERHEIRATET«, so 
wird zusätzlich das Feld HEIRAT vom 
Typ DATUM relevant. Ihm darf man jetzt 
Werte des korrekten Typs zuweisen: 
AKTE1. HEIRAT.TAG :=7; 
AKTE1. HEIRAT.MONAT:=6; 
AKTE1. HEIRAT.JAHR :=1973; 
Dieselben Felder gelten auch für 
»STAND = GETRENNT. Sollte im Laufe 
der Ehegeschichte eine Scheidung 
eintreten, so werden sich auch in der 


PROGRAM BRUECHE (INPUT, OUTPUT); 
(*% RECHNUNG MIT BRUECHEN IN DER 


TYPE BRUCH = RECORD 
ZAEHLER: INTEGER; 
NENNER : INTEGER; 
(* ZAEHLER UND NENNER IMMER *) 
(* TEILERFREMD, NENNER POSITIV ®) 
END; 


SUMME, 


DARSTELLUNG ZAEHLER, NENNER *) 


VAR A, B, DIFFERENZ, PRODUKT, QUOTIENT: BRUCH; 


PROCEDURE KUERZE(VAR A,B: INTEGER); 
(* KUERZE A UND B DURCH IHREN GROESSTEN GEMEINSAMEN 
VAR X: INTEGER; 


TEILER *) 


FUNCTION GGT (X,Y: INTEGER): INTEGER; 
(* BERECHNE DEN GRÖSSTEN GEMEINSAMEN TEILER VON X 
VAR H: INTEGER; 
BEGIN 
IF Y>»X THEN 
BEGIN H: =X; 
REPEAT 
H:= X MOD Y; 
%:=Y Y=H 
UNTIL H = 0; 
GGT: = X; 
END; (* GGT *) 


UND Y %) 


BEGIN (* KÜRZE %) 
X: = GGT(ABS(CA),B); 
IF X<>1 THEN 
BEGIN 
A:= A DIV X; 
B:= B DIV X; 
END; 
END; (* KÜRZE %) 
FUNCTION KGVCX,Y: INTEGER): INTEGER; 
(% BERECHNE DAS KLEINSTE GEMEINSAME VIELFACHE VON X UND Y %) 
VAR U, V: INTEGER; 
BEGIN 
= X, Vi= % 
WHILE X<>Y DO 
IF X>Y THEN 
BEGIN X: = X-Y; 
ELSE 
BEGIN Y:= Y-X; 


U:= U+V END 
V:;= V+U END; 
KGV:= (U+W) DIV 2 


(* ÜBRIGENS IST GGT(X,Y 
END; (%* KGV *%) 


=X%) 


PROCEDURE ADDIERE (A,B: BRUCH, VAR C: BRUCH), 
(* ADDIERE DIE BRÜCHE A UND B ZUM BRUCH C *) 


VAR HN: 


BEGIN 
WITH C DO 
BEGIN 
(# HAUPTNENNER BERECHNEN #) 
HN := KGV(A.NENNER, B.NENNER) 5; 
NENNER := HN; 
(# AUF HAUPTNENNER BRINGEN *) 
ZAEHLER := A.ZAEHLER * (HN DIV A.NENNER) 
(HN DIV B.NENNER) 3 
(* WITH *) 
ADDIERE *) 


INTEGER; (* HAUPTNENNER *) 


+ B.ZAEHLER * 


END; 
END; (#* 


PROCEDURE SUBTRAHIERE(A,B: BRUCH; VAR C: 
(* SUBTRAHIERE B VON A. ERGEBNIS IN C *%) 


BRUCH); 


BEGIN 
B. ZAEHLER: = - B. ZAEHLER; 
ADDIERE(A,B,C) 

END; (* SUBTRAHIERE *) 


PROCEDURE MULTIPLIZIERECA,B: BRUCH; VAR C: BRUCH); 


Personalakte gravierende Änderungen 


(# ZAEHLER MAL ZAEHLER UND NENNER MAL NENNER. VOR DER 
(#* MULTIPLIKATION WERDEN ZAEHLER UND NENNER GEKUERZT. 


BEGIN 
(* KUERZE ZUNAECHST KREUZWEISE, DAMIT PRODUKT NICHT 
(* ZU GROSS WIRD 
KUERZE (A.ZAEHLER, B.NENNER) 3 
KUERZE (B.ZAEHLER, A.NENNER) 3; 


C. ZAEHLER: 


= A. ZAEHLER * B. ZAEHLER; 
C. NENNER : = 


A. NENNER * B. NENNER; 


(* ZÄHLER UND NENNER VON C SIND HIER NOCH TEILERFREMD *) 
END; (* MULTIPLIZIERE *) 


PROCEDURE KEHRWERT(VAR A: BRUCH); 
(* BERECHNE DEN KEHRWERT VON A. BEACHTE DIVISION DURCH 0 
UND VORZEICHEN *) 
VAR T: INTEGER; 
BEGIN 
T:= A. ZAEHLER; 
IF T=0 THEN WRITELN«' 
ELSE 
IF T>0O THEN 
BEGIN 
A. ZAEHLER: A. NENNER; 
A. NENNER : T 
END 
ELSE 
BEGIN 
A. ZAEHLER: 
A. NENNER : 
END; 
(* KEHRWERT *) 


DIVISION DURCH NULL! ' ) 


-A. NENNER; 
-T5 


END; 


PROCEDURE LESEN (VAR A: BRUCH); 

(# LIEST EINEN FBRUCH VON DER TASTATUR. WIRD NACH *) 
(#* DEM ZAEHLER’ DAS ZEILENENDE ERREICHT, SO WIRD #*) 
(# DER NENNER GLEICH EINS GESETZT E *) 


BEGIN 
RITH A DO 
BEGIN 
READ( A. ZAEHLER); 
IF EOLN THEN A. NENNER: = 1 
ELSE READLN(A. NENNER); 
END; 
KUERZE(A. ZAEHLER, A. NENNER); 
END; (* LESEN *) 


PROCEDURE DRUCKEN (A: BRUCH); 


BEGIN 

WITH A DO 
IF NENNER = 1 THEN WRITELN(ZAEHLER) 
ELSE 

WRITELN{ ZAEHLER, 
(* DRUCKEN %) 


'/', NENNER) 


END; 


BEGIN 


WRITELN(' RECHNEN MIT BRUECHEN: (ENDE MITA = 

REPEAT 
WRITEC'A 
RRITEC'B 


'); LESEN(CA; 
*); LESEN(B); 
ADDIERE(A, B, SUMME); 
WRITECU'A + B = '); DRUCKEN( SUMME); 
SUBTRAHIERE(A, B, DIFFERENZ); 
RRITEC'A - B = '),; DRUCKEN( DIFFERENZ);' 
MULTIPLIZIERE(A, B, PRODUKT); 
WRITEU'A * B = '); DRUCKEN( PRODUKT); 
KEHRHWERT(B); MULTIPLIZIERE(A, B, QUOTIENT); 
WRITEC'A / B = '); DRUCKEN( QUOTIENT); 
UNTIL A. ZAEHLER = 0; 


END. 


Listing 15. Bruchrechnung mit Records in Pascal 


mAAPPYM 
COMPUTER: 
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vollziehen. Mit »AKTE1.STAND := GE- 
SCHIEDEN« wird das Feld HEIRAT un- 
gültig und statt dessen das Feld SCHEI- 
DUNG (ebenfalls ein Datum) mit dem 
booleschen Feld ALIMENTE wirksam. 

Offensichtlich kann man mit varianten 
Records sehr gut die Tatsache wieder- 
geben, daß gewisse Attribute eines 
Objektes nur unter gewissen Randbe- 
dingungen relevant sind. Dies wird 
dadurch erreicht, daß zu jedem Zeit- 
punkt immer nur eine der Feldlisten in 
Klammern hinter den Konstanten gültig 
ist. Diese zusätzlichen Informationen 
nutzt der Pascal-Compiler, um wie- 
derum Speicherplatz zu sparen. Er legt 
alle Varianten (also alle Feldlisten, die zu 
verschiedenen Werten des Auswahlfel- 
des gehören) an dieselbe Speicherpo- 
sition. Zur Laufzeit bestimmt dann das 
Auswahlfeld nach CASE (engl. tagfield), 
wie der Inhalt des Speichers zu inter- 
pretieren ist. Alle gemeinsamen Felder 
aus dem festen Teil sind eindeutig, wäh- 
rend die Felder im varianten Teil sich 
gegenseitig überlappen. 

Diese Überschneidung muß beach- 
tet werden, wenn ein Wechsel des Aus- 
wahlfeldes anfällt. Eine Anwendung 
varianter Records zeigt Listing 16. 
Bekanntermaßen kann man einen 
Punkt in der Ebene auf zwei verschie- 
dene Methoden darstellen: 


PROGRAM KOORDINATEN (INPUT, OUTPUT); 


(* RECHNUNG MIT POLAR- UND RECHTHINKLIGEN KOORDINATEN, 
(* DARGESTELLT DURCH VARIANTE RECORDS IN PASCAL. 
(* RUNDUNGSFEHLERGRENZE *) 


CONST EPSILON = 1.0E-7; 


TYPE KOORDINATENTYP = ( RECHTWINKLIG, 
KOORDINATE = RECORD 

CASE TYP: 

RECHTHINKLIG: 

POLAR 
END; 


VAR P: KOORDINATE; 


PROCEDURE HOLEPUNKT (VAR P: 


BEGIN 
REPEAT 
WRITE ' C-ARTESISCH ODER P-OLAR ?'); 
READLN(CH) x 
UNTIL CH IN L'C*,'P'); 


WITH P DO 
IF CH = 'c* 
BEGIN 
TYP: = RECHTWINKLIG; 
RRITEU'X = '); READLNCY; 
WRITEU'Y = '); READLNCY) 
END 
ELSE 
BEGIN 
TYP: = CARTESISCH; 
WRITEU'L = '); 
*%) URSPRUNG 
WRITEC'PHI = '); 
END 
END; (* HOLEPUNKT *) 


THEN 


READLN(L); 


READLN( PHID; 


PROCEDURE UMRECHNUNG (VAR P: 
VAR R: REAL; 


BEGIN 


POLAR); 
KOORDINATENTYP OF 


(xX,Y 
: CL, PHI: 


KOORDINATE); 


(* ABSTAND VOM KOORDINATEN 


(* WINKEL ZUR X-ACHSE *) 


KOORDINATE); 
(*% UMRECHNUNG DER BEIDEN KOORDINATENTYPEN %) 


In rechtwinkligen X- und Y-Koordina- 
ten oder mit Polarkoordinaten, durch 
Angabe der Entfernung des Punktes 
zum Koordinatensprung (L) und des 
Winkels zur X-Achse (PHI). 

Da sich eine Darstellungsform für 
gewisse Anwendungen jeweils besser 
eignet, wird in diesem Programm mit 
varianten Records ein Wechsel zwi- 
schen beiden Darstellungen zugelas- 
sen: 


TYPE KOORDINATE = 
RECORD 
CASE TYP:KOORDINATENTYP OF 
RECHTWINKLIG: 
(X,Y: REAL); 
POLAR: 
(L,PHI: REAL); 
END; 


Es ist zu beachten, daß die Angabe 
des Typs des Auswahlfeldes (hier 
KOORDINATENTYP) durch einen Typ- 
namen erfolgen muß. Je nach dem Wert 
von Typ ist also die Koordinate durch X 
und Y oder L und PHI bestimmt. Im übri- 
gen Programm können Sie neben dem 
Nutzen der WITH-Anweisung bei der 
Arbeit mit Records auch den Vorteil der 
Case-Anweisung bei varianten Records 
erkennen. Indem man vor dem Zugriff 
auf eine Variante eine CASE-Anweisung 
setzt, die die Konstanten aus der 


WITH P DO 
CASE TYP OF 


BEGIN 
R = 
PHI: = 
L ı= 
TYP; = 

: REAL); Bun: 

REAL); 


0% 
TYP: 
END; 

(% CASE 


END; 


RECHTWINKLIG: 


Record-Deklaration wiederholt, ist man 
vor unerlaubten Zuweisungen wie 
P.TYP:= POLAR; 

PX 23945 

geschützt. Erwähnenswert ist noch die 
Ende-Bedingung der Repeat-Schleife 
UNTIL BETRAG(P) <= EPSILON; 

Das Programm soll beendet werden, 
wenn die Entfernung des Punktes vom 
Ursprung Null ist. Da jedoch alle reellen 
Zahlen nur mit Rundungsfehlern 
berechnet werden können, verwendet 
man zwischen reellen Zahlen nie den 
Test auf Gleichheit (A=B), sondern nur 
eine Prüfung der Form ABS(A-B) <= 
EPSILON mit einer Konstanten EPSI- 
LON, die eine Schranke für die Run- 
dungsfehler auf dem jeweiligen Rech- 
ner angibt. Die Berücksichtigung dieser 
Regel hilft eine Reihe häufiger Fehler zu 
vermeiden. 

Nun sind wir am Ende unserer Einfüh- 
rung in das Programmieren mit Funktio- 
nen, Prozeduren und Datentypen ange- 
langt. Zur Vertiefung der gewonnenen 
Erkenntnisse sei es dringend angera- 
ten, ein wenig mit den abgedruckten 
Beispielen herumzuexperimentieren, 
sie zu erweitern und abzuändern. Denn 
auch in Pascal gilt der altbekannte 
Spruch vom Meister, den man nur durch 
Übung... 


(Florian Matthes/er) 


SORTLX*X + Y*Y); 
ARCTANY/N; 


R; 
POLAR; 


SIN(PHI)*L; 
COSt PHI) *L; 


RECHTHINKLIG 


& WITH *) 


END: (* UMRECHNUNG *) 


FUNCTION BETRAG( P: 


BEGIN 


KOORDINATE): REAL; 


IF P.TYP = RECHTWINKLIG THEN 
BETRAG: = SQRT( SQR(P.X) + SQRIP.Y) ) 


ELSE 


BETRAG: = P,L 
END; (* BETRAG *) 


PROCEDURE DRUCKEPUNKT (P: 


BEGIN 
WITH P DO 
CASE TYP OF 


RECHTHINKLIG: 


POLAR 

END; 
END; 

BEGIN 

REPEAT 


HOLEPUNKT(P); 


KOORDINATE); 


WRITELNC'X = ' 
s WRITELN'L = ', 


(#* CASE *%) 
(* DRUCKEPUNKT. *) 


DRUCKEPUNKT(P); 


UMRECHNUNG( P); 


DRUCKEPUNKT( P); 
UNTIL BETRAG(P)<= EPSILON; 


END. 


Listing 16. Koordinatenumrechnung mit varianten Records 


WordStar 3.0 mit MailMerge ner Bestseller unter den Textverarbei- 
tungsprogrammen für PCs bietet Ihnen bildschirmorientierte Formatierung, deutschen 
Zeichensatz und DIN-Tastatur sowie integrierte Hilfstexte. Mit MailMerge können Sie 
Serienbriefe mit persönlicher Anrede an eine beliebige Anzahl von Adressen schreiben 
und auch die Adreßaufkleber drucken. 

WordStar/MailMerge für den Schneider CPC 464*, CPC 664* 

Bestell-Nr. MS 101 (3”-Diskette) 

Bestell-Nr. MS 102 (5', "-Diskette im VORTEX-Format) 

WordStar/MailMerge für den Schneider CPC 6128 

Bestell-Nr. MS 104 (3”-Diskette) 

WordStar/MailMerge für den Schneider Joyce PCW 8256 

Best.-Nr. MS 105 (3”-Diskette) 

Hardware-Anforderungen: Schneider CPC 464*, CPC 664*, CPC 6128 oder Joyce, 
beliebiger Drucker mit Centronics-Schnittstelle 

* Der Standard-Speicherplatz beim CPC 464/664 erlaubt ohne Speichererweite- 
rung Blockverschiebe-Operationen nur bedingt und Simultan-Drucken gar nicht. 
WordStar/MailMerge für den Commodore 128 PC 

Bestell-Nr. MS 103 (5), ”-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


dBASE ll, Version 2.41 «Base Il, das meistverkaufte Programm unter 
den Datenbanksystemen, eröffnet Ihnen optimale Möglichkeiten der Daten- u. Datei- 
handhabung. Einfach u. schnell können Datenstrukturen definiert, benutzt und geän- 
dert werden. Der Datenzugriff erfolgt sequentiell oder nach frei wählbaren Kriterien, die 
integrierte Kommandosprache ermöglicht den Aufbau kompletter Anwendungen wie 
Finanzbuchhaltung, Lagerverwaltung, Betriebsabrechnung usw. 

dBASE Il für den Schneider CPC 464*, CPC 664* 

Bestell-Nr. MS 301 (3”-Diskette) 

Bestell-Nr. MS 302 (5', ”-Diskette im VORTEX-Format) 

dBASE Il für den Schneider CPC 6128 

Bestell-Nr. MS 304 (3”-Diskette) 

dBASE Il für den Schneider Joyce PCW 8256 

Best.-Nr. MS 305 (3”-Diskette) 

Hardware-Anforderungen: Schneider CPC 464 *, CPC 664 *, CPC 6128 oder Joyce, 
beliebiger Drucker mit Centronics-Schnittstelle 

* dBASE II für den Schneider CPC 464/664 ist lauffähig mit der VORTEX-Speicher- 
erweiterung auf 128 KByte. Diese erhalten Sie direkt bei der Firma VORTEX oder bei 
Ihrem Computerhändler. 

dBASE Il für den Commodore 128 PC 

Bestell-Nr. MS 303 (5); ”-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


MULTIPLAN, Version 1.06 wenn Sie die zeitraubende manuelle 
Verwaltung tabellarischer Aufstellungen mit Bleistift, Radiergummi und Rechenmaschine 
satt haben, dann ist MULTIPLAN, das System zur Bearbeitung »elektronischer Datenblät- 
ter«, genau das richtige für Sie! Das benutzerfreundliche und leistungsfähige Tabellenkal- 
kulationsprogramm kann bei allen Analyse- und Planungsberechnungen eingesetzt wer- 
den wie z.B. Budgetplanungen, Produktkalkulationen, Personalkosten usw. Spezielle For- 
matierungs-, Aufbereitungs- und Druckanweisungen ermöglichen außerdem optimal auf- 
bereitete Präsentationsunterlagen! 

MULTIPLAN für den Schneider CPC 464*, CPC 664* 

Bestell-Nr. MS 201 (3”-Diskette) 

Bestell-Nr. MS 202 (5', ”-Diskette im VORTEX-Format) 

MULTIPLAN für den Schneider CPC 6128 

Bestell-Nr. MS 204 (3"-Diskette) 

MULTIPLAN für den Schneider Joyce PCW 8256 

Best.-Nr. MS 205 (”-Diskette) 

Hardware-Anforderungen: Schneider CPC 464 *, CPC 664*, CPC 6128 oder Joyce, 
beliebiger Drucker mit Centronics-Schnittstelle 

* MULTIPLAN für den Schneider CPC 464/664 ist lauffähig mit der VORTEX-Speicher- 
erweiterung auf 128 KByte. 

MULTIPLAN für den Commodore 128 PC 

Bestell-Nr. MS 203 (5',”-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


Sie erhalten jedes WordStar-, dBASE Il- und MULTIPLAN-Programm für Ihren Schneider- 
Computer oder Commodore 128 PC fertig angepaßt (Bildschirmsteuerung). Jeweils 
Originalprodukte! Jedes Programmpaket enthält außerdem ein ausführliches Handbuch 
mit kompakter Befehlsübersicht. Die VORTEX-Speichererweiterung für den Schneider 
CPC 464 erhalten Sie direkt bei der Firma VORTEX oder bei Ihrem Computerhändler. 

Diese Markt & Technik-Softwareprodukte erhalten Sie in den Computer-Abteilungen 
der Kaufhäuser, bei Ihrem Computerhändler oder im Buchhandel. 

Wenn Sie direkt beim Verlag bestellen wollen: gegen Vorauskasse durch Verrechnungs- 
scheck oder mit der eingehefteten Zahlkarte. 

Bestellungen im Ausland bitte an untenstehende Adressen. 

Schweiz: Markt& Technik Vertriebs AG, 

Kollerstrasse 3, CH-6300 Zug, ® 042/415656 

Österreich: Überreuter Media, Handels- und Verlagsges. mbH, 

Alser-Str. 24, A-1091 Wien, ® 0222/48 1538-0 


Für Auskünfte steht Ihnen Herr Teller, Telefon 089/46 13-205, gerne zur Verfügung. 


Spitzen-Softwure für 
Schneider-Computer 
und Commodore 128 PC 


mit 
Schneider 


3" Schneider-Format 


fürden 
464/664 


Marks£kchnik 
a CPC 


dBASE" 


‚SR ASHTON TATE 
für den 
Schneider CPC 6128 


3" Schneider-Format 


Marka&Tichnik 
128er-Software 


MICROSOFT 
MUITIPLAN 


ür den 
Commodore 128 PC 


5Y"-Diskette 
im Floppy 1541-Format 


Jedes Programm 
kostet DM 199,—* vrr. 


Und dazu die 
weiterführende 
Literatur: 


WordStar für den Schneider CPC 
Best.-Nr. MT 779, ISBN 3-89090-180-8 
WordStar fürden Commodore 128PC 
Best.-Nr. MT 780, ISBN 3-89090-181-6 


dBASE Il für den Schneider CPC 

Best.-Nr. MT 837, ISBN 3-89090-188-3 
dBASE Il für den Commodore 128 PC 
Best.-Nr. MT 838, ISBN 3-89090-189-1 


Markt Ich 


MULTIPLAN für den Schneider CPC 
Best.-Nr. MT 835, ISBN 3-89090-186-7 
MULTIPLAN für den Commodore 128 PC 
Best.-Nr. MT 836, ISBN 3-89090-187-5 


Jedes Buch kostet DM 49,- 
(sFr. 45,10/6S 382,20). 
Erhältlich bei Ihrem Buchhändler. 


* inkl. MwSt. Unverbindliche 


178,-168S 1890,*) Preisempfehlung 


Markt&fTechnik 


Unternehmensbereich Buchverlag 
Hans-Pinsel-Straße 2, 8013 Haar bei München 


Dateiverwaltung mit 
Pascal 


at man große Datenmengen zu 

verarbeiten, so reicht der 

Arbeitsspeicher des Compu- 
ters im allgemeinen nicht aus. Außer- 
dem gehen alle Daten im Hauptspei- 
cher beim Ausschalten des Computers 
verloren. Um langfristig große Datenbe- 
stände zu konservieren, benötigt man 
externe Speichermedien (Floppy-Disk, 
Festplatten, aber auch Band- und Kas- 
settenlaufwerke). 

Ein großes Problem ist nun die Tat- 
sache, daß es fast so viele Betriebs- 
systeme wie Computertypen gibt. Da 
jedoch Pascal sowohl auf Mikrocompu- 
tern als auch Großrechenanlagen im- 
plementiert ist, muß ein möglichst 
systemunabhängiges Konzept zur Dar- 
stellung externer Speicher in der Spra- 
che gefunden werden. Diese Lösung 
besteht in der Formalisierung des Prin- 
zips der sequentiellen Dateien, die man 
als den kleinsten gemeinsamen Nenner 
aller Dateiverwaltungssysteme be- 
zeichnen kann. 

Mit der Deklaration 
TYPE ZAHLENDATEI = FILE OF 
INTEGER; 

VAR D: ZAHLENDATEI; 

wird ein File D vereinbart, dessen Kom- 
ponenten aus ganzen Zahlen beste- 
hen. Allgemein kann nach den Schlüs- 
selworten FILE und OF jeder beliebige 
(auch zusammengesetzte) Typ folgen. 
Wie in einem Array besitzen alle Kom- 
ponenten denselben Typ. Jedoch kann 
ein File (praktisch) beliebig viele Kom- 
ponenten umfassen, die nur in fester 
Reihenfolge adressiert werden können. 
Zu jedem Zeitpunkt ist immer nur eine 
Komponente erreichbar. Diese aktuelle 
Komponente wird im obigen Beispiel 
mitDt bezeichnet und ist vom Typ INTE- 
GER. 

Um nun weitere Komponenten zu 
erreichen, kann man die aktuelle Kom- 
ponente (Puffervariable) Di wie ein 
Fenster über das gesamte File ver- 
schieben (siehe Bild 1). Ein konkretes 
Beispiel für das Schreiben und Lesen 
eines Files zeigt Listing 1. Es demon- 
striert die beiden Methoden des 
Zugriffs auf Files in Pascal. 


1. Sequentielles Schreiben 

Um ein File zu erzeugen, muß man die 
Standardprozedur REWRITE mit der 
Filevariablen (im Beispiel also Dt) aufru- 
fen. Dadurch werden alle Komponenten 
gelöscht, die eventuell zuvor im File exi- 
stierten. Das Schreibfenster (Dt im Bei- 


Dieser Beitrag beschäftigt sich 
mit dem Datei-Begriff von Pascal 
und gibt Hinweise und Beispiele 
für die effiziente Verwaltung gro- 
Ber Datenmengen. 


spiel) steht über der ersten Kompo- 
nente und besitzt einen undefinierten 
Wert (siehe Bild 2a). Eine Zuweisung wie 
Di := 99; 

füllt den Puffer mit dem angegebenen 
Wert (Bild 2b). Natürlich erfolgen auch 
bei Files die üblichen Typüberprüfun- 
gen, so daß der Compiler die Zuwei- 
sung »Dt :=’K'« als fehlerhaft erkennt. 
Mit PUT(D) wird der Wert des Puffers in 
das File geschrieben und der Schreib- 
zeiger eine Position weiter gesetzt. 
Jede Wiederholung der Schritte Wert- 
zuweisung an den Puffer und Puffer 
schreiben erweiter das File um jeweils 
eine Komponente (Bild 2c): 

Di:= 43; PUT(D); 

Es ist beim sequentiellen Schreiben 
nicht möglich, eine bereits geschrie- 
bene Komponente wieder zu korrigie- 
ren, da dazu der Schreibzeiger rück- 
wärts bewegt werden müßte. 

2. Sequentielles Lesen 

Durch den Aufruf der Standardproze- 
dur RESET mit der Filevariablen als 
Parameter wird die Puffervariable auf 
den Wert der ersten Komponente im 


PUT, OUTPUT); 


: FILE OF INTEGER; 
: INTEGER; 


File gesetzt (Bild 2d). Die Puffervariable 
kann man wie eine »normale« Variable in 
Ausdrücken verwenden und so das File 
Stück für Stück bearbeiten. Im Beispiel 
ergibt die Befehlsfolge 

RESET(D); WRITE(Dt, Dt+5) 

die Ausgabe »99 104«. Aufruf GET(D) 
setzt die Puffervariable wiederum eine 
Position weiter, so daß Di den Wert 43 
enthält (Bild 2 e). Nach einem erneuten 
Aufruf von GET(D) steht das Lesefen- 
ster hinter der letzten belegten Kompo- 
nente (Bild 2f) und die Puffervariable ist 
undefiniert. Um festzustellen, ob das 
Lesefenster über einem definierten 
Wert steht oder sich hinter dem 
Fileende befindet, dient die Standard- 
funktion 

EOF(Filevariable) 

So lieferte EOF(D) den booleschen 
Wert TRUE, falls Dt sich in der letzten 
Komponente (wie in Bild 2f) befindet. 
Insbesondere ist EOF=TRUE, falls man 
ein leeres File mit RESET zum Lesen 
eröffnet. Da im Beispielprogramm in 
Listing 1 die Länge des Files unbekannt 
ist, wird eine Schleife der Form 
WHILE NOT EOF(D) DO 
verwendet. Übrigens ist per Definition 
EOF(D)=TRUE, falls auf das File D 
(nach RESET(D)) geschrieben wird. 

Man kann ein File in beliebiger Rei- 
henfolge mit RESET und REWRITE zum 
sequentiellen Lesen und Schreiben 


(* ZAHLEN VON DER TASTATUR AUF FILE SCHRIEIBEN: *%) 


REHRITE( ZAHLENDATEI) 
REPEAT 
READLNCX); 
ZAHLENDATEI: = X; 
PUT( ZAHLENDATEI); 
UNTIL X=0; 


(% SEQUENTIELL SCHREIBEN *) 


(* PUFFER MIT ZAHL FÜLLEN %) 
(* PUFFER SCHREIBEN *“) 


(* ZAHLEN VOM FILE LESEN UND SCHREIBEN: *) 


RESET ZAHLENDATEI)D; 


(* SEQUENTIELL LESEN *) 


HHILE NOT EOF(ZAHLENDATEI) DO (* SOLANGE NICHT HINTER DEM DATEIENDE * 


BEGIN 
X: = ZAHLENDATEI”; 
HRITELNCY; 

GET( ZAHLENDATEI); 
END; 
END. 


t* PUFFER AUSLESEN *) 


(* PUFFER AUF NÄCHSTE ZAHL *) 


Listing 1. Grundlegende Fileoperationen 


AR 


MAN PPy? Y 
:OMPUTER 


Bild 2. Operationen in einem File (a bis f) 


PROGRAM MERGE( INPUT, OUTPUT); 
(*% 2 PHASEN 3-BAND NATÜRLICHES MISCHSORTIERTEN *) 


TYPE ITEM = RECORD 
KEY: INTEGER; (* ODER CHAR, REAL, 
(*% HIER KÖNNEN WEITERE FELDER STEHEN %) 
END; 


TAPE = FILE OF ITEM; 


VAR C 


: 'TABB;, 
BUF: 


ITEM; 


(* DIESES FILE WIRD SORTIERT *) 
(* HILFSVARIABLE ZUR EINGABE *) 


PROCEDURE LIST (VAR F: TAPE); 
(*% ZEIGE DEN INHALT VON F AN %) 
VAR X: ITEM; 
BEGIN 
RESET(F) 
KHILE NOT EOF(F) DO 
BEGIN 
X. KEY: = F" 
GET(F); 
WRITECX. KEY: 4) 
END; 
WRITELN 
END; (* LIST %) 


. KEY; 


PRCEDURE NATURALMERGE; 
(* SORITERE. DAS FILE C (GLOBAL) IN MEHREREN DURCHLÄUFEN. 
(* DIE PROZEDUR BENUTZT ZWEI HILFSFILES A UND B. 
VAR L INTEGER; (* ANZAHL DER LÄUFE AUF C 
EOR: BOOLEAN (%* END OF RUN, ENDE DES LAUFES 
A,B: TAPE; (* HILFSFILES 


PROCEDURE COPY( VAR X,Y: TAPE); 
(* KOPIERE RECORD VON X NACH Y, 
VAR BUF: ITEM; 
BEGIN 
BUF. KEY: = X". KEY; GET(X; 
Y’. KEY: = BUF. KEY; PUT(Y; 
IF EOF(X) THEN EOR: =TRUE 
ELSE EOR: =BUF. KEY»>X“. KEY 
END; (X CoPY %) 


AKTUALISIERE EOR 


PROCEDURE COPYRUN (VAR X,Y: TAPE); 
(* KOPIERE KOMPLETTEN LAUF VON X NACH Y *) 
BEGIN 

REPEAT COPY(X,Y 
END; (* COPYRUN *%) 


UNTIL EOR 


PROCEDURE DISTRIBUTE; 
(*% KOPERE LÄUFE VON C ABWECHSELND AUF A UND B %) 
BEGIN 

REPEAT 


Listing 2. Natürliches Mischsortieren mit Files 


ARRAL..] 


a) REWRITE (D) 


b) DI:=99 


c) PUT (D); DI =43 


d) RESET (D) 


OF CHAR *) 


eröffnen, jedoch ist zu beachten, daß 
jeder Aufruf mit REWRITE alle im File 
existierenden Komponenten löscht. 
Möchte man ein bestehendes File am 
Ende erweitern, so muß man zunächst 
das gesamte File mit GET und PUT auf 
ein anderes File kopieren, an das man 
dann mit PUT die neuen Komponenten 
anfügt. Sollten Sie beim Test des Pro- 
grammes in Listing 1 nicht das 
gewünschte Ergebnis erhalten, so liegt 
das wahrscheinlich daran, daß der 
Compiler für Ihren Computer zusätzli- 
che Anweisungen zur Arbeit mit Files 
benötigt. 

In Turbo-Pascal zum Beispiel verlangt 
eine Filevariable vor dem ersten RESET 
oder REWRITE mit der Prozedur 
ASSIGN einen 
ASSIGN(D, 'DATEN.SEQ') 

Außerdem sollten in Turbo-Pascal 
unter dem Betriebssystem PC-DOS alle 
Files (auch solche, von denen nur gele- 
sen wurde) am Ende der Verarbeitung 
mit CLOSE geschlossen werden: 
CLOSE(D) 

Werfen Sie bei Schwierigkeiten also 
zunächst einen Blick in die Handbü- 
cher. Neben diesem zusätzlichen Auf- 
wand bei der Behandlung sequentieller 
Dateien bieten viele Compiler die Mög- 
lichkeit, die Schreib- und Leseposition 
in einem File gezielt zu setzen. Mit 
SEEK(D,400) 
zeigt die Puffervariable auf die 400. 
Komponente im File. Arbeitet man mit 
einer Festplatte, so läßt sich ein File wie 
ein Array variabler Größe mit hundert- 
fach langsamerer Zugriffszeit verwen- 
den. 

Zurück zum Pascal-Standard. Eine 
grundlegende Operation mit Files ist 
das Sortieren. Für das Sortieren von 
Arrays gibt es eine Vielzahl von Algorith- 
men, deren Verständlichkeit oft umge- 
kehrt proportional zur Sortiergeschwin- 
digkeit ist. Falls Sie Pascal und nicht das 
Sortieren auf externen Speicherme- 
dien lernen wollen, ist in Listing 2 ein 
Programm zum sogenannten »3-Band-, 
2-Phasen-Mischsortieren« abge- 
druckt. 


Natürlich kann man ein File dadurch 
sortieren, daß man es komplett in den 
Speicher lädt, dort sortiert und es 
anschließend geordnet zurückschreibt. 
Reicht jedoch (was häufig der Fall ist) 
der Arbeitsspeicher nicht aus, so hat 
man von jedem File in jedem Schritt nur 
die Komponente der Puffervariablen 
zur Verfügung. Um ein File umzusortie- 
ren, benötigt man also mindestens drei 
Files. Von einem File wird sequentiell 
gelesen, während die gelesenen Werte 
in möglichst geschickter Reihenfolge 
auf die beiden übrigen Files verteilt wer- 
den (Prozedur DISTRIBUTE). Anschlie- 
ßBend werden die beiden erzeugten 
Files zum Lesen eröffnet und auf das 
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ursprüngliche Lesefile zurückgeschrie- 
ben (Prozedur MERGE), wobei jeweils 
zwei sortierte Teilsequenzen zu einer 
sortierten Sequenz auf dem Ausgangs- 
file verbunden werden. 

Durch eine Wiederholung der zwei 
Phasen Verteilen und Mischen (dies ist 
der Fachausdruck für das Zusammen- 
fassen zweier teilweise geordneter 
Files zu einem dritten, ebenfalls geord- 
neten File) erhält man schließlich ein 
sortiertes File. Ein Beispiel soll das Ver- 
halten des Programmes verdeutlichen: 
C= (143275 6 8) verteilt ergibt 
= ( 

( ) gemischt ergibt 
2 7) verteilt ergibt 
8 


NSWwRrunhNn 
non 
naon 

— 
o\ 0 


ip} 
v»>uı We ı 


a u ee | 
r 

mn 

brWww6hH 


gemischt ergibt 
02 2(1,2.,34556:7 8) 

Noch ein paar Worte zur Theorie: 
Eine geordnete Teilfolge innerhalb 
eines Files wird als Lauf (englisch run) 
bezeichnet. So besteht die Folge 
1,4/3/2,7/5,6,8 
aus Läufen. Demzufolge werden mit 
DISTRIBUTE Läufe von C abwechselnd 
nach Aund B verteilt, und anschließend 
mit MERGE Läufe auf A und B zu Läufen 
auf C zusammengefaßt. Die Variable L 
zählt die Anzahl der Läufe auf C. IstL=1, 
so muß also C aufsteigend geordnet 
sein. 

Das Programm selbst zeigt praktisch 
alle Operationen, die mit Files in Pascal 
möglich sind. Zunächst wird ein 
Recordtyp ITEM vereinbart, der ein 
Schlüsselfeld KEY vom Typ INTEGER 
besitzt. Natürlich könnte an dieser 
Stelle auch ein anderer skalarer Typ 
oder auch der Typ ARRAY[1..N] OF 
CHAR stehen. Dann interpretiert der 
Compiler alle Vergleichsoperationen 
mit »=« und »>« korrekt. 

Anschließend wird der eigentliche 
Filetyp TAPE deklariert. Jede Kompo- 
nente der Files besteht also aus einem 
Record, so daß mit jedem Aufruf von 
PUT und GET ein kompletter Record 
zwischen Puffervariable und File über- 
tragen wird. 

C bezeichnet das zu sortierende File, 
das am Programmanfang in einer 
REPEAT-Schleife mit einer Folge gan- 
zer Zahlen gefüllt wird. Die Prozedur 
LIST zeigt, daß man auch Files als Para- 
meter übergeben kann. Dabei muß man 
jedoch Variablenmeter verwenden. In 
LIST wird zunächst das File F zum 
Lesen eröffnet und anschließend in 
der üblichen Weise mit einer WHILE- 
Schleife ausgelesen. Hinter dem 
Namen NATURALMERGE verbirgt sich 
die eigentliche Prozedur zum Sortieren. 
Den Beginn und das Ende des Anwei- 
sungsteils der Prozedur kennzeichnen 
Kommentare. Sicher ist Ihnen schon 
aufgefallen, daß man ein größeres File 
in Pascal am besten von hinten liest, da 


COPYRUN(C, A); 


IF NOT EOF(C) THEN COPYRUN(C,B); 


UNTIL EOF(C); 
END; (* DISTRIBUTE *% 


PROCEDURE MERGE; 
(* MISCHE FILE A UND B ZU FILE C. 


PROCEDURE MERGERUN; 


L (GLOBAL) ZÄHLT DIE LÄUFE *) 


(* MISCHE LÄUFE VON A UND B ZU LÄUFEN AUF C *) 


BEGIN 
REPEAT 
IF A”, KEY<B". KEY THEN 
BEGIN 
CoPY(A,C); 
IF .EOR THEN COPYRUN(B, C) 
END 
ELSE 
BEGIN 
coPYtB,C); 
IF EOR THEN COPYRUN(A,C) 
END 
UNTIL EOR; 
END; (* MERGERUN %) 


BEGIN (* MERGE %) 
L:= 0 


(* KLEINEREN SCHLÜSSEL KOPIEREN *) 


x ZUNÄCHST FILES MISCHEN, BIS EINES ZU ENDE: *) 


REPEAT 
MERGERUN; L: =L+1 
UNTIL EOF(A) OR EOF(B),; 


(* JETZT DEN REST VOM JEWEILIGEN FILE KOPIEREN *) 


WHILE NOT EOF(A) DO 
BEGIN 
COPYRUN(A,C); 
L: =L+1 
END; 
WHILE NOT EOF(B) DO 
BEGIN 
COPYRUN(B,C); 
L: =L+1 


; 
END; (%*% MERGE *%) 


BEGIN (* NATURALMERGE *) 


(* ABWECHSELND VERTEILEN UND MISCHEN, 


REPEAT 
REWRITE(CA; 
DISTRIBUTE; 
RESET( A), RESET(B); 
MERGE; 
LISTIC), 

UNTIL L=1; 

END; (* NATURALMERGE *) 


REHWRITE(B); 


REHWRITE(C) 


BEGIN (* HAUPTPROGRAMM *) 


RESET(C); 


BIS NUR EIN LAUF AUF C IST *%) 


(* VON C NACH A UND B *) 


(* NUR ZUR VERDEUTLICHUNG *) 


WHRITELN( ' SORTIEREN EINES SEQUENTIELLEN FILES: '); 


HRITELN(' EINGABEZAHLEN: 


REWRITE(CC); 
READ( BUF. KEY); 
REPEAT 
C”.KEY:= BUF. KEY; 
READ( BUF. KEY) 
UNTIL BUF. KEY=0; 


PUTLC); 


LIST(C); 
NATURALMERGE; 
END. 


(* SORTIERE C *) 


(MIT 0O ABSCHLIESSEN) '); 


t* AUF C SCHREIBEN %) 


(* ZUR KONTROLLE EINGABEZAHLEN ANZEIGEN *%) 


Listing 2. Natürliches Mischsortieren mit Files (Schluß) 


durch die Schachtelung der Prozedu- 
ren die Anweisungsteile des Hauptpro- 
grammes und der wichtigen Prozedu- 
ren eben nach »hinten« wandern. 
NATURALMERGE selbst besteht, 
wie bereits besprochen, im wechsel- 
seitigen Aufruf der beiden Phasen 
DISTRIBUTE und MERGE, bis C nur 
noch einen Lauf umfaßt. In der Hierar- 
chie der Prozeduren steht die Prozedur 
COPY am weitesten unten. Sie kopiert 
eine Komponente vom File X zum File Y. 
Um das Ende eines Laufes zu erken- 
nen, findet hier die boolesche Variable 
EOR (end of run, Ende des Laufs) 
Anwendung. So istnach der Zuweisung 


EOR:= BUF.KEY >Xt.KEY 
die Variable EOR = TRUE, falls das Feld 
KEY im Record BUF größer als das ent- 
sprechende Feld in der Puffervariablen 
des Files X ist. Danach jedem Durchlauf 
die bisher erreichte Sortierung auf dem 
File C angezeigt wird, sehen Sie mit den 
folgenden Testdaten die Funktions- 
weise des Programmes am deutlich- 
sten: 
8,7,6,554,3,2,1,0 

Als nächstes wenden wir uns einem 
speziellen Typ von Files zu. Während 
die Files, die mit PUT und GET erzeugt 
werden, die Daten Byte für Byte wie im 
Speicher darstellen, ist es oft sinnvoll, 
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Ein- und Ausgaben zu verwenden, die 
ein Mensch verstehen kann. Konkret 
gesprochen stellt man sich unter der 
Zahl 12345 die Zeichenfolge »12345« 
und nicht etwa zwei Byte ($30 und $39 
hexadezimal) vor. 

Da Files, die aus Zeichenfolgen 
bestehen, eine große Rolle spielen, exi- 
stiert in Pascal ein vordefinierter Typen- 
bezeichner 
TYPE TEXT = FILE OF CHAR; 

Mit der Deklaration 

VAR F: TEXT; 

können neben den Operationen RESET 
und REWRITE auf das Textfile F auch 
formatiert Werte ein- und ausgegeben 
werden. Das Prinzip besteht darin, den 


PROGRAM TEXTFILES (INPUT, OUTPUT); 


PROCEDURE FORMAT( VAR EINGABE, 


AUSGABE: 


Prozeduren READ, READLN, WRITE 
und WRITELN als ersten Parameter 
eine Filevariable zu übergeben, von der 
die Eingabe kommt oder auf welche die 
Ausgabe erfolgen soll: 

(1) WRITE(F,AUSDRUCK : n) 

Mit diesem Prozeduraufruf wird der 

Ausdruck vom Typ INTEGER, REAL, 
CHAR oder BOOLEAN auf das File F in 
ein Feld mit einer Mindestlänge von n 
Zeichen geschrieben. Ist die Länge des 
auszugebenden Wertes größer als n, 
so wird n ignoriert: 
WRITE(123456 : 10); WRITE('*': 3) 
erzeugt also folgende Ausgabe: 
2.2..123456____* 

Ist der Ausdruck vom Typ REAL, so 


TEXT; RECHTS: INTEGER); 


(* FORMATIERE VON EINGABE NACH AUSGABE AUF RECHTEN RAND IN DER SPALTE 


(% RECHTS. LEERE ZEILEN, 
(* VERÄNDERT. 


CONST SPACE Be 
TYPE LINEINDEX = 1..136; 
VAR LINE 
B1S,T: 
ZEILE: 


LINEINDEX; 
INTEGER; 
Ss INTEGER; 
P,Q INTEGER; 
T : INTEGER; 


LFD, 


ODER ZEILEN MIT NUR EINEM WORT WERDEN NICHT 


ARRAY ULINEINDEX) OF CHAR; 


ZEILENNUMMER 
ANZAHL DER EINZUFÜGENDEN LEERZEICHEN IN ZEILE 
ANZAHL DER LEERZEICHEN NACH JEDEM WORT 

INDEX DES WORTES, 


NACH DEM ZUM 1. MAL Q LEER- 


* ZEICHEN EINGEFÜGT WERDEN SOLLEN 


‚N : INTEGER; 


PROCEDURE READLINE( VAR LASTCOLUMN: INTEGER; 


ANZAHL DER WORTE IN DER ZEILE 


VAR WORDS: INTEGER); 


KOMPLETTE ZEILE ELNLESEN UND IN LINE (GLOBAL) SPEICHERN *) 
IN LASTCOLUMN STEHT DAS LETZTE ZEICHEN UNGLEICH SPACE IM X) 


TEXT. 
LEERZEICHEN GETRENNTEN WORTE. 


VAR MWASSPACE, ISSPACE: 

T . 

CH : CHAR; 
BEGIN 

I: =1; WASSPACE: = TRUE; 

WHILE NOT EOLN( EINGABE) DO 

BEGIN 

READ( EINGABE, CH) ; 

ISSPACE: = CGH=SPACE; 

{F NOT ISSPACE THEN 

BEGIN 
LASTCOLUMN: = I; 


IF WASSPACE THEN WORDS: = 


END; 
WASSPACE: = 
END; 
LINEULASTCOLUMN+1]: = 
END: (*% READLINE %) 


SPACE; 


PROCEDURE COPYHWORD; 


HINTER DEM TEXT EIN SPACE. 


BOOLEAN; 
: LINEINDEX; 


WORDS: = 


LINELI): = 


ISSPACE; I:= Ir1 


WORD ZÄHLT DIE DURCH =) 


x) 


0; LASTCOLUMN: =0, 


CH; 


WORDS +1; (A WORTANFANG *) 


READLN( EINGABE); 


(% AB DER MOMENTANEN POSITION IN LINE WORT MIT VORLAUFENDEN SPACES *) 
(* BIS ZUM NÄCHSTEN SPACE AUSGEBEN ”*) 


BEGIN 
WHILE LINELI]=SPACE DO 
BEGIN WRITE( AUSGABE, SPACE); 
REPEAT 
RRITE( AUSGABE, LINELI)); 
UNTIL LINELI]=SPACE; 
END; (* COPYHORD *%) 


PROCEDURE INSERTSPACES(N: 
(* N LEERZEICHEN AUSGEBEN *) 
BEGIN 

IF N>O THEN WRITE (AUSGABE, 
END, (* INSERTSPACES *) 


BEGIN (* FORMAT ©) 
RESET( EINGABE); 
ZEILE: = 0; 


WHILE NOT EOF( EINGABE) DO 
BEGIN 

READLINE(BIS,N); 

S: = RECHTS-BIS; 


I.=21+9 


I:= I+i1 END; 


INTEGER); 


SPACE : 


REWRITE( AUSGABE); 


ZEILE: = ZEILE + 1; 
(* ANZAHL DER FEHLENDEN LEERZEICHEN *%) 


Listing 3. Kopieren und Formatieren eines Textfiles 


sind nach dem Doppelpunkt zwei For- 
matierungsangaben möglich: 


WRITE(F,reeller Ausdruck: n : m) 
druckt die reale Zahl nicht in Gleit- 
kommadarstellung (zum Beispiel 
1.00000E +2), sondern in Festkomma- 
darstellung. Dabei gibt n wieder die 
Mindestgröße des Feldes an, in das die 
Zahl ausgegeben wird, wohingegen m 
die Anzahl der angezeigten Nachkom- 
mastellen wiedergibt: 

WRITELN(1.2345 : 10: 5) 

ergibt die Ausgabe 

___1.23450 

(2) WRITELN(F) 

Wichtig ist die Tatsache, daß sich die 
Zeichen auf einem Textfile in Zeilen glie- 
dern. Mit dem Prozeduraufruf WRI- 
TELN(F) wird auf dem Textfile F ein Zei- 
lenende erzeugt. Technisch bewirkt 
dies die Ausgabe von ein oder zwei 
Steuerzeichen (CR, eventuell LF, car- 
riage return und line feed, also Wagen- 
rücklauf und Zeilenvorschub) auf das 
File F. 

Eine Folge von Ausgaben, wie 
WRITE(F,A); WRITE(F,B); WRITE(F, 
C); 
kann immer zusammengefaßt werden 
zu 
WRITE(F,A,B,C) 

Außerdem entspricht der Aufruf 
WRITELN(F,A,B,...) 

der Befehlsfolge 
WRITE(F,A,B,...);WRITELN(F) 

Somit erzeugt also die Ausgabe mit 
WRITELN immer einen Zeilenwechsel 
am Ende der Ausgabe. Natürlich muß 
vor allen Schreiboperationen das File F 
mit REWRITE(F) zum Schreiben eröff- 
net worden sein. Dabei werden wieder 
alle Zeichen, die eventuell zuvor in F 
existierten, gelöscht. Beabsichtigt man 
eine Ausgabe auf dem Standard-Aus- 
gabegerät (dem Bildschirm), so bietet 
sich als Filevariable die vordeklarierte 
Variable OUTPUT an. Diese kann man 
sich mit der Deklaration 
VAR OUTPUT: TEXT; 
vereinbart denken. In Wirklichkeit wird 
man jedoch in diesem Fall den Filepara- 
meter bei WRITE nicht angeben, und 
erhält somit die vereinfachte Syntax, 
die Sie bereits am Anfang des Artikels 
kennengelernt hatten: 

WRITE(OUTPUT, 'Hallo Bildschirm') 
läßt sich also ersetzen durch 
WRITE('Hallo Bildschirm'). 

(3) READI(F, Variable) 

Vom Textfile F werden Zeichenfolgen 
eingelesen und als Werte des Typs der 
Variablen interpretiert. Am besten kann 
man diese Umwandlung von Zeichen- 
folgen auf dem File in Werte, zum Bei- 
spiel des Typs INTEGER, an Beispielen 
verdeutlichen: 

VAR I: INTEGER; 
R: REAL; 
C: CHAR; 
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Befindet sich auf dem File F folgende 
Zeichenfolge: 

1234 34.55X 

so bewirkt der Prozeduraufruf READ 
(F,1,R,C) folgende Zuweisungen: 
I:=1234;. R:=34.55; O:='!X! 

Ist der Parameter bei READ eine 
ganze oder reelle Zahl, so werden zu- 
nächst Leerzeichen und Zeilenwechsel 
ignoriert. Anschließend wird eine Zif- 
fernfolge eingelesen und der entspre- 
chende Wert der Variablen zugewie- 
sen. Eine nachfolgende READ- 
Operation verarbeitet das Zeichen, das 
direkt hinter der gelesenen Zahl 
beginnt. Daher besitzt die Variable C im 
obigen Beispiel den Wert »X«. 

(4) READLN(F) 

Vom File F werden solange Zeichen 
eingelesen, bis ein Zeilenende erkannt 
wurde. Der nächste Aufruf der Prozedur 
READ mit dem File F liest das erste Zei- 
chen der folgenden Zeile. Es gibt eben- 
falls ein Standardfile zur Eingabe, das 
folgendermaßen vordeklariert ist: 

VAR INPUT: TEXT; 

Wiederum kann man Eingaben von 
der Tastatur als Standard-Eingabe auch 
ohne Angabe einer Filevariablen errei- 
chen. READ(INPUT,I,R,C) entspricht 
READI(I,R,C) und liest drei Werte von 
der Tastatur. 

(5) EOLN(F) 

Die Standardfunktion EOLN, ange- 
wandt auf ein Textfile F, liefert einen 
booleschen Wert. Er ist genau dann 
TRUE, falls bei der letzten Eingabe vom 


File F das Zeilenende erreicht wurde. 


Bitte beachten Sie, daß Sie beim Ein- 
lesen nie die oben genannten Steuer- 
zeichen (Zeilenwechsel oder Wagen- 
rücklauf) erhalten, da diese vom Pascal- 
Laufzeitsystem automatisch in Leerzei- 
chen (blanks) umgewandelt werden. 

Nach diesen zugegebenermaßen 
recht detaillierten Ausführungen über 
Textfiles in Pascal sollen Sie zur Beloh- 
nung auch ein wirklich sinnvolles Pro- 
gramm kennenlernen. Es kopiert einen 
Text von einem Textfile zu einem ande- 
ren und formatiert dabei Zeilen rechts- 
bündig (Listing 3). 

Die Prozedure FORMAT wird mit drei 
Parametern aufgerufen. EINGABE liest 
den zu formatierenden Text und 
schreibt ihn auf AUSGABE. RECHTS 
enthält die Spalte, in der jede Zeile 
enden soll. Für einen Testlauf können 
Sie RECHTS beispielsweise auf 40 Zei- 
chen setzen. 

Nachdem EINGABE und AUSGABE 
korrekt zum Lesen und Schreiben eröff- 
net wurden, wird jeweils eine Zeile mit 
READLINE eingelesen, entschieden, 
ob die Zeile formatiert werden muß und 
schließlich die formatierte Zeile ausge- 
geben. Beim Einlesen (READLINE) wird 
der Text in einen Zeilenpuffer LINE 
geschrieben. Alle Indizes in diesem 
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I:=1; 


IF (N<=1) OR (S<=0) THEN (* 1:1 KOPIEREN %) 


WHILE I<=BIS DO 
BEGIN WRITE( AUSGABE, 
ELSE 


LINELI));, I:= 


I+1 END 


BEGIN (* BERECHE ANZAHL DER LEERZEICHEN UND VERTEILUNG: *) 


IF ODD( ZEILE) THEN 
BEGIN 
Pr# S’DEV CN=-1)5 
Q:= Pr1; 
Ts Pa CNN) N - 8 
END 
ELSE 
BEGIN 
Q@:= S DIV (N-1); 
P:= Q+1; 
Fe +71 = 08% EN-1) 
END; 
FOR K:= 1 TO N-1 DO 
BEGIN 
COPYHORD; 


(* VON LINKS EINFÜGEN *%) 


(* VON RECHTS EINFÜGEN *%) 


(* WORTE KOPIEREN UND ERWEITERN *) 


IF K>=T THEN INSERTSPACES(Q) 


ELSE INSERTSPACES(P) 


END; 
COPYWORD; 
END; (% IF %) 
HRITELN( AUSGABE); 

END; (* WHILE NOT EOF... *) 
END; (* FORMAT *%) 
BEGIN 

FORMAT( INPUT, OUTPUT, 40); 
END. 


(* LETZTES WORT *) 


Listing 3. Kopieren und Formatieren eines Textfiles (Schluß) 


ARRAY von Zeichen sind als Aus- 
schnittstypen 

TYPE LINEINDEX = 1..136 - 
deklariert. Außerdem bestimmt READ- 
LINE die Anzahl der Worte in der Zeile 
und die letzte Spalte, in der ein Buch- 
stabe stand. Diese Werte kommen als 
Variablenparameter zurück. Anschlie- 
Bend wird die Anzahl der Leerzeichen 
bestimmt, die in die Zeile einzufügen 
sind, damit das letzte Zeichen in Spalte 
RECHTS erscheint. Enthält die Zeile 
nur ein Wort oder fehlen keine Leerzei- 
chen, so kann der Zeilenpuffer LINE 
ohne Änderung ausgegeben werden. 

Ansonsten beginnt die eigentliche 
Formatierung. Dabei sollten Sie vermei- 
den, daß sich die Worte alle am rechten 
und linken Rand sammeln. Daher wer- 
den in Zeilen mit ungerader Zeilennum- 
mer (»ODD(ZEILE)=TRUE«) Leerzei- 
chen von links eingefügt, sonst jedoch 
von rechts. 

Ein Beispiel: Steht in einer Zeile 11 
Mal das Zeichen A mit einem Zwischen- 
raum und ist RECHTS=40, so müssen 
18 Leerzeichen auf 10 Wortzwischen- 
räume verteilt werden. Ein Teil der Zwi- 
schenräume wird also um ein Leerzei- 
chen, der Rest um zwei Leerzeichen 
erweitert. Im Programm übernehmen 
diese Verteilung die Variablen P Q und 
T. Die ersten Worte werden mit P Leer- 
stellen am Ende erweitert, während ab 
dem T-ten Wort Q Leerstellen angefügt 
werden. In der FOR-Schleife enthält 
also K die Nummer des gedruckten 
Wortes. 

Nach diesen Ausführungen kennen 
Sie die Logik des Programmes, so daß 
Sie noch ein paar technische Details 


zum Thema Textfiles aufnehmen kön- 
nen: Zunächst erkennen Sie am Aufruf 
»FORMAT(INPUTOUTPUT, 40) den 
Nutzen der vordefinierten Textfiles 
INPUT und OUTPUT, die ja auch im Pro- 
grammkopf angegeben werden. Mit 
ihnen kann man die Tastatur und den 
Bildschirm wie ein normales File 
ansprechen. Bei der Prozedur READ- 
LINE wird die Funktion EOLN(Eingabe) 
zum Erkennen des Zeilenendes be- 
nutzt. Damit nach der Bearbeitung der 
ersten Zeile beim nächsten Aufruf die 
folgende Zeile weiterbearbeitet wird, 
muß am Ende der Aufruf READLN(EIN- 
GABE) stehen. Die Prozedur INSERT- 
SPACES verwendet die Angabe eines 
Formatierungsparameters nach dem 
Doppelpunkt, um eine definierte Anzahl 
von Leerzeichen zu drucken: 
WRITE(AUSGABE, ' ': N) 

druckt ein Leerzeichen rechtsbündig in 
einem Feld der Größe N. Somit werden 
insgesamt N Leerzeichen ausgegeben. 
Schließlich erfolgt nach der Ausgabe 
jeder Zeile der Aufruf WRITELN(AUS- 
GABE). Damit wird auf dem File AUS- 
GABE ein Zeilenwechsel erzeugt, um 
die Zeilenstruktur des Files EINGABE 
zu erhalten. 

Damit ist die Diskussion des Daten- 
typs File und speziell der Textfiles been- 
det. Als Übung können Sie versuchen, 
das Programm in Listing 3 so zu verän- 
dern, daß es jede Zeile zentriert druckt. 
Sie können also die Prozedur READ- 
LINE wieder verwenden, jedoch dafür 
sorgen, daß die fehlenden Leerstellen 
zur Hälfte vor dem ersten Wort gedruckt 
werden. 

(Florian Matthes/ev) 


MAAPPYMG 
COMPUTER 


Von Zeigern, 
Listen und Graphen 
(Pascal, Teil 4) 


Der letzte Beitrag unserer Einfüh- 
rung in die Programmiersprache 
Pascal beschäftigt sich mit ei- 
nem nicht ganz einfachen, aber 
sehr interessanten Thema: den 
dynamischen Datenstrukturen. 


ie Beschreibung der dynami- 

schen Datenstrukturen steht 

grundsätzlich am Ende jeder 
Einführung in Pascal. Dies liegt einer- 
seits daran, daß es sich dabei um ein 
besonders leistungsfähiges Sprachele- 
menthandelt, andererseits möchte man 
den Anfänger erst zum Schluß mit 
einem völlig neuen Verfahren zur 
Behandlung von Variablen konfrontie- 
ren. Haben Sie also in den vorherge- 
henden Artikeln Ihre ersten Schritte in 
Pascal gemeistert, dürfen Sie an dieser 
Stelle nicht frustriert zur Überzeugung 
gelangen, daß Pascal viel zu kompliziert 
und unverständlich ist. Vielmehr sollten 
Sie, nachdem Sie das bisher Gelernte in 
eigenen Programmen verwendet 
haben, mit diesen Erfahrungen den 
letzten Teil zur Fortbildung nutzen. 
Sicherlich gibt es auch einige Leser, die 
bisher zwar in Pascal programmiert 
haben, dabei jedoch einen weiten 
Bogen um Pointervariablen geschlagen 
haben. Für diese beginnt jetzt wohl der 
eigentlich interessante Teil der Artikel- 
serie. 

Alle bisher behandelten Datentypen 
und Variablen waren statisch. Am 
Beginn jedes Blockes wurden die loka- 
len Variablen angelegt und waren über 
ihren Namen veränderlich, bis der Block 
wieder verlassen und das Ende der Gül- 
tigkeit der Variablen erreicht wurde. 
Diese Variablenverwaltung hat zur 
Folge, daß bereits zur Übersetzungs- 
zeit der Compiler eine Speicherplatz- 
verwaltung durchführen kann. Außer- 
dem entspricht jedem Variablennamen 
ein (eventuell zusammengesetzter) 
Wert, jedoch gibt es auch gravierende 
Nachteile. Jedes Array besitzt eine 
feste Größe (es gibt keinen variablen 
DIM-Befehl wie zum Beispiel in Basic), 
so daß man oft entweder ein zu kleines 
Array definiert oder unnötig Speicher- 
platz verschwendet. 


Man möchte also zur Laufzeit des 
Programms dynamisch entscheiden, 
ob Speicherplatz für eine Variable anzu- 
legen ist oder ob eine bestehende 
Variable gelöscht werden soll. Außer- 
dem möchte man auf diese dynamisch 
erzeugten Variablen gezielt zugreifen. 
Andererseits will man nicht auf die 
Typüberprüfungen des Compilers ver- 
zichten. Die Lösung des Dilemmas 
besteht darin, Variablen nicht mehr 
durch Namen, sondern durch Zeiger zu 
identifizieren. 

Betrachten wir ein konkretes Bei- 
spiel. Es soll eine Kundenliste gebildet 
werden. Von jedem Kunden wird Name 
und Kundennummer gespeichert. Da 
die Anzahl der Kunden (in der Zukunft) 
unbekannt ist, scheidet ein Array von 
Kundenrecords als Datenstruktur aus. 
Statt die Daten auf einem langsamen 
externen Datenspeicher als File abzule- 
gen, wird eine Liste mit Zeigern gebildet 
(Bild 1). Bildlich gesprochen entspricht 
jeder Record einem Kasten, der alle 
Daten eines Kunden enthält. Um nun 


einen Record im Programm anzuspre- 


chen, benutzt man keinen Variablenna- 
men, sondern einen Zeiger auf diesen 
Kasten. 
TYPE KUNDENZEIGER = ! KUNDE; 
KUNDE = RECORD 
NAME: ARRAY[1..10] 
OF CHAR; 
KNUMMER: INTEGER; 
NAECHSTER: KUNDEN- 
ZEIGER; 
END; 
VAR KUNDE1, KUNDENEU, LETZTER: 
KUNDENZEIGER; 

In Bild 1 zeigt also der Zeiger 
KUNDE1 auf den ersten Kundenre- 
cord. Von dort führt ein weiterer Zeiger 
zum nächsten Kundenrecord und so 
weiter. Jeder Zeiger (pointer) ist an 
einen Typ gebunden. So kann also eine 
Variable vom Typ KUNDENZEIGER nur 
auf einen Record vom Typ KUNDE wei- 


KUNDE 1 


100 


Bild 1. Eine Liste mit Zeigern 


sen. Die Liste in Bild 1 ist also über 
einen Zeiger (KUNDE1) zugänglich. 
Indem man den Zeigern von Record zu 
Record folgt, kann man nacheinander 
jeden Record in der Liste adressieren. 

Die obige Variablendeklaration defi- 
nierte jeweils nur Speicherplatz für Zei- 
ger auf Kundenrecords, jedoch keine 
Records selbst. Dies geschieht erst 
während der Programmausführung mit 
der Standardprozedur NEW: 
NEW(KUNDE1) 

Damit reserviert man irgendwo im 
Hauptspeicher des Rechners Spei- 
cherplatz für eine Variable des Typs, auf 
den die Pointervariable KUNDEI1 zeigt. 
Um diesen neu erzeugten Kundenre- 
cord zu adressieren, wird gleichzeitig 
dem Zeiger KUNDE1 die Adresse die- 
ses Records zugewiesen (Bild 2a). 
Jetzt kann man der so erzeugten Varia- 
blen Werte übergeben: 

KUNDE1 t .NAME:= 'MAIER t; 
KUNDE1 t .KNUMMER:= 100; 

Während KUNDEI1 eine Zeigervaria- 
ble (vom Typ KUNDENZEIGER) ist, 
bezeichnet KUNDE! eine Variable des 
Typs KUNDE. Indem man also den Pfeil 
hinter eine Zeigervariable stellt, erhält 
man die dynamische Variable, auf die 
die Pointervariable zeigt. Man bezeich- 
net deshalb den Pfeil auch als 
»Dereferenzier-Operator«. 

Da KUNDE1! eine (dynamische) 
Recordvariable ist, folgen nach einem 


‚Punkt wie üblich die Feldnamen des 


Records. Damit erhält man den Zustand 
aus Bild 2b. Um einen weiteren Kunden 
in die Liste aufzunehmen, ist zunächst 
wieder Speicherplatz zu reservieren. 
NEW (KUNDENEU) 

Wie oben kann man jetzt diesen 
Record mit Werten füllen (2c): 


KUNDENEUt .NAME:= "MÜLLER es 
KUNDENEUl .KNUMMER:= 200; 
Schließlich soll KUNDENEU als 


Nachfolger von KUNDE1 eingetragen 
werden. Hierzu wird im Feld NAECH- 


MUELLER SCHULZE 
0 | 
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STER des Records, der durch KUNDE1 
referiert wird, der Zeiger KUNDENEU 
eingetragen (Bild 2d). 

KUNDE1t .NAECHSTER:= KUNDENEU 

Um den letzten Record hinter KUN- 
DENEU einzufügen, kann man folgende 
Anweisungsfolge verwenden: 
NEW(LETZTER) ; 

LETZTER! .NAME:='SCHULZE 3 
LETZTER! .KNUMMER:=300; 
KUNDENEUT .NAECHSTER:= LETZTER 

Damit ergibt sich eine Liste wie in Bild 
2e. Wie erkennt man nun aber das Ende 
der Liste? Man muß wissen, ob das Feld 
NAECHSTER einen gültigen Zeiger 
enthält. Um anzuzeigen, daß ein Zeiger 
auf keine dynamische Variable weist, 
verwendet man den Wert NIL. Diese 
Konstante darf jeder Zeigervariablen 
zugewiesen werden. Mit 
LETZTER! .NAECHSTER: =NIL 
gibtman also an, daßnach LETZTER! in 
der Liste kein Record mehr folgt. 

Bisher programmierten wir alle Einfü- 
gungen in die Liste »zu Fuß«. Ein kom- 
plettes Programm zur Verwaltung einer 
- Kundenliste zeigt Listing 1. Es spei- 
chert die Kunden in alphabetischer Rei- 
henfolge. Zusätzlich existieren am 
Anfang und Ende der Liste je ein leerer 
Record. Damit ergibt sich eine Listen- 
struktur wie in Bild 3. Die Zeiger KOPF 
und ENDE weisen immer auf die beiden 
leeren Records. Im folgenden werden 
alle Funktionen des Programms anhand 
von Abbildungen erklärt. 

Am einfachsten ist die Ausgabe der 
Tabelle (Bild 4a), siehe Prozedur 
TABELLE in Listing 1: Man durchläuft 
mit dem Zeiger Z die gesamte Liste und 
zeigt den jeweiligen Kundenrecord an. 
Mit 

= KOPF .NAECHSTER 
wird zunächst der leere (schraffierte) 
Record am Listenanfang übersprun- 
gen. Solange der Zeiger Z nicht mit dem 
Zeiger ENDE übereinstimmt, wird der 
Record Z1 (nicht der Zeiger Z!) ange- 
zeigt. »Z:= Zt .NAECHSTER« führt 
schließlich von jedem Record zu sei- 
nem Nachfolger in der Liste. 

Die Prozedur EINGABE _|liest 
zunächst von der Tastatur einen Namen 
ein. Dann wird durch den Aufruf der Pro- 
zedur VORHANDEN geprüft, ob dieser 
Name bereits in der Liste steht. Ist dies 
der Fall, so endet die Eingabe. Anson- 
sten wird dann ein neuer Record NEU 
geschaffen und mit Namen und Kun- 
dennummer gefüllt (Bild 4b). Da die 
Liste alphabetisch sortiert bleiben soll, 
muß NEU direkt hinter dem alphabeti- 
schen Vorgänger eingehängt werden. 
Daher liefert die Prozedur VORHAN- 
DEN einen Zeiger VOR, der in jedem 
Fall auf den Vorgänger in der Liste zeigt. 
Die Einfügung selbst geschieht dann in 
zwei Schritten. Zunächst wird der Zei- 
ger NAECHSTER im neuen Record auf 
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Bild 2. Operationen in der Liste (siehe Text) 


PROGRAM KUNDENLISTE (INPUT, OUTPUT); 
(* BEISPIEL FÜR DIE VERWALTUNG EINER LISTE MIT DYNAMISCHEN VARIABLEN 
(* DIE DATEN VOM TYP KUNDE WERDEN STÄNDIG SORTIERT IN EINER EINFACH 
(* VERKETTETEN LISTE GESPEICHERT. JEDER RECORD BESITZT DAZU EINEN 
(*% ZEIGER AUF DEN ALPHABETISCHEN NACHFOLGER. UM DAS EINFÜGEN UND 

(* LÖSCHEN EINFACH ZU GESTALTEN, BESITZT DIE LISTE JE EINEN LEEREN 
(* RECORD AM ANFANG UND ENDE. 


CONST LEN = 10; (% LÄNGE EINES NAMENS IN ZEICHEN 


TYPE STRING = ARRAY [1..,LEN] OF CHAR; 
KUNDENZEIGER = ° KUNDE; 
KUNDE =’ RECORD 
NAME : STRING; 
KNUMMER : INTEGER; 
NAECHSTER: KUNDENZEIGER; 
END; 
KOPF: KUNDENZEIGER; (* ZEIGER AUF DEN ERSTEN RECORD IN DER LISTE *) 
ENDE: KUNDENZEIGER; (* ZEIGER AUF DEN LETZTEN RECORD *) 
CH : CHAR; (* BENUTZEREINGABE *) 


PROCEDURE READSTRING (VAR S: STRING); 
(* STRING MIT LEN ZEICHEN VON DER TASTATUR LESEN %) 
VAR I: INTEGER; 
C: CHAR; 
BEGIN 
REPEAT READ(C) UNTIL C<>' '; (* VORLAUFENDE LEERZEICHEN IGNORIEREN 
I:=1; 


REPEAT (% LEN ZEICHEN ODER BIS ZUM ZEILENENDE 
SstLisa CC; I:= ILrV: 
READ(C) 

UNTIL (I>LEN) OR EOLN; 


WHILE I<LEN DO (* S MIT LEERZEICHEN AUF DIE VOLLE 
BEGIN (* LÄNGE ERWEITERN 
St II: 13 Eee +1; 
END; 
READLN 
END; (* READSTRING *) 
FUNCTION VORHANDEN (S: STRING; VAR Z: KUNDENZEIGER): BOOLEAN; 
(* SUCHT DEN NAMEN S IN DER LISTE. ERGEBNIS = TRUE, FALLS S GEFUNDEN 
(* WURDE. 2 ZEIGT BEI DER RÜCKKEHR IMMER AUF DIE POSITION DES ALPA- 
(* BETISCHEN VORGÄNGERS. 


. 
VAR Z1: KUNDENZEIGER,;, (* 21 STEHT IMMER EINEN RECORD WEITER ALS 
(* DER ZEIGER 2 
BEGIN N 
%2:= KOPF; Z1:= KOPF .NAECHSTER; * 21 ZEIGT AUF ERSTEN GÜLTIGEN 
q * RECORD IN DER LISTE 
ENDE”. NAME: =S; * MARKE IM LEZTEN RECORD DER LISTE*) 
WHILE 21°. NAME<S DO (* WANDERE MIT 21 DURCH DIE LISTE, 
BEGIN (* BIS POSITION VON S ERREICHT 
2:= 21; 2Z1:= 21°. NAECHSTER 
END; 3 
(% GEFUNDEN, FALLS NAMEN GLEICH UND NICHT MARKE ERREICHT 
VORHANDEN: = (21°. NAME=S) AND (Z1<»ENDE); 
END; (* VORHANDEN *) 


PROCEDURE DRUCKE (2: KUNDENZEIGER); 
Listing 1. Kundenverwaltung mit Listenstruktur 


BEGIN 
WITH 2° DO 
HRITELNC' NAME: ', NAME: LEN+2, ' NUMMER: ', KNUMMER : 5) 
END; (* DRUCKE %) 


PROCEDURE EINGABE; 
6% EINFÜGEN EINES NEUEN KUNDENRECORDS AN DER KORREKTEN POSITION IN 
(*% DER KUNDENLISTE ZWISCHEN VON UND BIS 
VARN : STRING; (* NEUER NAME 
NEU: KUNDENZEIGER; (* ZEIGER AUF DEN NEUEN RECORD 
VOR: KUNDENZEIGER; (* ZEIGER AUF DEN VORGÄNGER IN DER LISTE 


BEGIN 
HRITEC' NAME: '); READSTRING(N); 
IF VORHANDEN (N, VOR) THEN (* VOR WIRD HIER GESETZT 
WRITELN(N, ' IST BEREITS KUNDE! ' 
ELSE 
BEGIN 
NEH (NEU); (* NEUEN RECORD BESORGEN 
WRITE (' KUNDENNUMMER: '); 
READLN ( NEU”. KNUMMER) ; (* UND MIT WERTEN BELEGEN: 
NEU”. NAME: = N; 


(*% NEU” HINTER VOR” EINFÜGEN: *) 
NEU”, NAECHSTER: = VOR”. NAECHSTER; 
VOR“. NAECHSTER: = NEU 
END; 
END; (% EINGABE %) 


PROCEDURE AUSGABE; 
(*% AUSGABE EINES KUNDENRECORDS 
VAR N : STRING; 
VOR: KUNDENZEIGER; (* ZEIGER AUF ALPHABETISCHEN VORGÄNGER 
BEGIN 
WRITE C' NAME: '); 
READSTRING(N; 
IF VORHANDEN (N, VOR) THEN (* VOR WIRD AUF DEN VORGÄNGER GESETZT! 
DRUCKE ( VOR”. NAECHSTER) 
ELSE 
WRITELN (N, ' NICHT ALS KUNDE GESPEICHERT! '),; 
END; (% AUSGABE *) 


PROCEDURE LOESCHEN; 
(*% LOESCHEN EINES KUNDENRECORDS IN DER LISTE 
VAR N : STRING; 
VOR: KUNDENZEIGER; (”* WIEDERUM ZEIGER AUF DEN VORGÄNGER IN 
(*% DER LISTE DER KUNDEN 


BEGIN 
WHRITE(' NAME: '); READSTRING(N); 
IF VORHANDEN(N, VOR) THEN (* VOR WIRD AUF DEN VORGÄNGER GESETZT 
BEGIN 
WRITELN (' GELÖSCHT WURDE: '); 
DRUCKE ( VOR”. NAECHSTER); (* ZUR SICHERHEIT ANZEIGEN 


(* JETZT DEN NACHFOLGER VON. VOR” AUS DER LISTE ENTFERNEN: 
VOR”. NAECHSTER: = VOR”. NAECHSTER”. NAECHSTER; 
END 
ELSE 
WRITELN (N, ' NICHT ALS KUNDE GESPEICHERT! '); 
END; (* LOESCHEN %) 


PROCEDURE TABELLE; 
(* DRUCKE EINE ALPHABETISCHE AUFLISTUNG ALLER KUNDEN %) 
VAR 2: KUNDENZEIGER; 
BEGIN 
2:= KOPF”. NAECHSTER; (*% 2 AUF DEN ERSTEN BELEGTEN RECORD 
HHILE Z<>ENDE DO SOLANGE NICHT DER LETZTE (LEERE 
BEGIN RECORD ERREICHT WIRD 
DRUCKE( 2); ANZEIGE 2" 
2:= 2°. NAECHSTER; ZUM NÄCHSTEN KUNDEN 
END; 
END; (A TABELLE *) 


BEGIN (* HAUPTPROGRAMM *) 
NEW(KOPF); NEW(ENDE); 
KOPF”. NAECHSTER: = ENDE; 


(* ERSTEN UND LETZTEN RECORD BILDEN 
(* ENDE DIREKT NACH DEM KOPF, ALSO IST 
* DIE LISTE LEER 


REPEAT 
WRITELN('E INGABE L OESCHEN'); 
WRITELNC' A USGABE T ABELLE'); 
WRITELN(' x BEENDEN' ); 
READLNUCH); 
IR cH IN ("BE ,"0,'EH, "PT @T THEN 
CASE CH OF 
*E': EINGABE; 
"A': AUSGABE; 
*L': LOESCHEN; 
*T': TABELLE; 
"X’: (0% NICHTS %) 
END (* CASE *%) 
ELSE 
WRITELNCCH ,' IST NICHT MÖGLICH! '); 
UNTIL CH='X' 
END; 


Listing 1. Kundenverwaltung mit Listenstruktur (Schluß). Das Zeichen »" « entspricht 


dem Hochpfeil (» ! «) 


den Nachfolger des Records VOR! 
gesetzt. Dann kann der Zeiger NAECH- 
STERin VORt auf den Wert des Zeigers 
NEU gesetzt werden. Damit ergibt sich 
eine Liste wie Bild 4c. Dort sind die 
geänderten Zeiger fett gezeichnet. 

Um in der Prozedur AUSGABE zu 
einem Namen den zugehörigen Kun- 
denrecord in der Liste zu finden, dient 
ebenfalls die Funktion VORHANDEN. 
Da sie jedoch immer einen Zeiger auf 
den Vorgänger liefert, muß der Record 
VORt.NAECHSTER verwendet 
werden. 

Ebenso einfach ist das Löschen 
eines Kunden. In der Prozedur LOE- 
SCHEN wird wieder mit VORHANDEN 
ein Zeiger auf den Vorgänger in der 
Liste gesetzt. Mit 
VOR? .NAECHSTER:=VORf .NAECHSTER!. 
NAECHSTER 
wird im Record VOR! der Zeiger auf 
den übernächsten Nachfolger gerichtet 
(fette Linie in Bild 4d). 

Jetzt ist es an der Zeit, uns mit der 
Funktion VORHANDEN näher zu befas- 
sen. Sie durchsucht die alphabetisch 
sortierte Liste nach dem Namen S. Wird 
ein Record mit NAME=S gefunden, so 
ist VORHANDEN gleich TRUE. Der Zei- 
ger Z weist dann auf den Vorgänger die- 
ses Records. Ist jedoch VORHANDEN 
gleich FALSE, so existiert kein Kunde 
mit dem Namen S. Jetzt zeigt Z auf den 
Record, hinter dem ein neuer Record 
eingefügt werden müßte, um die alpha- 
betische Ordnung zu erhalten. In Bild 
4e ist gezeigt, daß zwei Zeiger Zund Z1 
verwendet werden. Man durchläuft wie 
bei der Prozedur TABELLE die Liste bis 
gilt: 


Z1l.NAME >=S 


Dabei hinkt der Zeiger Z immer einen 
Record hinter dem Zeiger Z1 her. Ist die 
obige Bedingung eingetreten, so zeigt 
Z auf den alphabetischen Vorgänger. 
Um zu verhindern, über das Listenende 
hinauszulaufen, wird am Anfang der 
letzte (unbenutzte) Record mit dem 
gesuchten Namen gefüllt: 

ENDEt .NAME:=S; (z.B. S='SCHULZE') 

Damit bricht die WHILE-Schleife 
sicher für ZI=ENDE ab. Einen solchen 
Eintrag zur Vereinfachung des 
Abbruchkriteriums bezeichnet man als 
Marke. Das boolesche Ergebnis der 
Funktion bestimmt also abschließend 
die folgende Zuweisung: 

VORHANDEN:= (Z1t.NAME=S) AND 
(z1<> ENDE) 

Am Programmanfang wird mit 

NEW(KOPF); NEW(ENDE) ; 

KOPFt .NAECHSTER:= ENDE 

eine Liste mit zwei wunbenutzten 
Records erzeugt. Durch diese Initiali- 
sierung findet Einfügen und Löschen 
immer zwischen zwei Records statt. 
Wären diese Hilfsrecords nicht vorhan- 
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den, so müßte man zum Beispiel beim 
Löschen immer die Sonderfälle 
Löschen am Listenanfang oder 
Löschen des einzigen Elements in der 
Liste prüfen, da in diesen Fällen auch 
die Zeiger KOPF und ENDE verändert 
werden müßten. 

Jetzt sollten Sie sich zunächst etwas 
Zeit nehmen, alle diese Informationen 
zu verdauen und sich genauer mit dem 
Listing 1 auseinandersetzen. Dann füh- 
ren Sie einen kleinen Verständnistest 
durch: 

1. Was ist der Unterschied zwischen 
den folgenden Zuweisungen? 

KOPF := ENDE und 
KOPFI := ENDEI? 

2. Ändern Sie das Programm so, daß 
die Namen in umgekehrter alphabeti- 
scher Reihenfolge (SCHULZE, MUEL- 
LER, MAIER) in der Liste gespeichert 
werden! 

Zur Beantwortung der ersten Frage 
blättern Sie bei Bedarf zum Anfang der 
Ausführungen über Zweigvariablen 
zurück. Die zweite Aufgabe besteht 
»nur« in der Änderung der Funktion 
VORHANDEN. 

Es gibt sehr viele verschiedene 
Varianten mit dem Konzept der Spei- 
cherung von Daten in Listen. Sie unter- 
scheiden sich in der Methode, wie die 
Records durch Zeiger verkettet sind. Im 
Beispiel der Kundenliste kann man 
ohne Probleme von jedem Kunden zu 
seinem alphabetischen Nachfolger 
gelangen. Jedoch erreicht man den 
Vorgänger im Alphabet nur, indem man 
die Liste vom Kopf her durchläuft. Eine 
naheliegende Lösung besteht darin, 
jeden Record um einen Zeiger auf den 
Vorgänger zu erweitern: 


TYPE KUNDENZEIGER = KUNDE; 
KUNDE = RECORD 
NAME : ARRAY 
[1..10] OF CHAR; 
KNUMMER INTEGER; 
VORIGER KUNDENZEIGER; 
NAECHSTER: KUNDENZEIGER; 
END; 


Diese Verkettung erlaubt zwar ein 
Durchlaufen der Liste vorwärts wie 
rückwärts, jedoch werden die Operatio- 
nen zum Einfügen und Löschen 
wesentlich komplexer, da sie zwei Ver- 
kettungen aktualisieren müssen. Eine 
solche doppelt verkettete Liste zeigt 
symbolisch das Bild 5. 

Es gibt noch viele andere Methoden, 
Datenstrukturen mit Zeigern zu bilden 
(zum Beispiel Bäume), in denen man 
sehr effizient Werte sortiert einfügen, 
suchen und löschen kann. Da dieses 
Themengebiet sehr umfangreich ist 
und wirklich gute Literatur über dieses 
Thema existiert [1], sollen die letzten 
Beispiele mit Zeigern andere Anwen- 
dungen zeigen. 

Zunächst wird ein Verfahren vorge- 


stellt, das Werte so speichert, daß man 
ohne Suchen in einem Schritt einen vor- 
gegebenen Wert wiederfindet. Die 
angenommene Aufgabe besteht darin, 
für eine Anzahl von Orten die Postleit- 
zahl abzulegen. Man soll also einerseits 
neue Orte mit ihrer Postleitzahl einge- 
ben können und andererseits zu einem 
vorgegebenen Namen die gespei- 
cherte Postleitzahl (falls gespeichert) 
erhalten. 

Bei der Speicherung mit dynami- 
schen Variablen im Programm KUN- 
DENLISTE trat das Problem auf, daß 
man sich erst mit einer (linearen) Suche 
durch die Liste bewegen muß, um einen 
Kundenrecord zu finden. Dabei muß 
man bei n gespeicherten Werten im 
Durchschnitt n/2 Vergleiche aufwen- 
den. Optimal wäre eine Speicherungs- 
methode, bei der man direkt aus dem 
Suchschlüssel einen Verweis auf die 
gespeicherten Informationen erhält. 
Diese Anforderung erfüllt das soge- 
nannte »Hashing«: Man speichert alle 
Daten in einer Hash-Tabelle. Das ist ein 
Array, das mit ganzen Zahlen indiziert 
wird: 

CONST HASHSIZE = 97; 

TYPE INFO = INTEGER; (* POSTLEIT- 
ZAHL *) 
VAR HASHTAB = ARRAY[O..HASH- 

SIZE] OF INFO; 

Nun sollen im vorliegenden Beispiel 
als Schlüssel zwanzigstellige Städtena- 
men verwendet werden. Man steht also 
vor dem Problem, aus einem String der 
Länge 20 einen eindeutigen Index zwi- 
schen O und 1000 zu erzeugen. Eine 
solche Hash-Funktion - Schlüssel- 
transformations-Funktion - gibt das 
Programm in Listing 2 unter dem 
Namen HASHINDEX wieder. Zunächst 
wird die Summe aller Codezahlen der 
Zeichen berechnet: 

70 
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1043 

Anschließend wird dieser Index 
durch die Tabellengröße geteilt. Der 
Divisionsrest ist eine Zahl zwischen O 
und der Tabellengröße und kann somit 
direkt als Index gelten. 
1034 / 97 = 10 REST 73 

Um die Postleitzahl für Frankfurt 
(6000) zu speichern, sind folgende 
Schritte erforderlich: 


INDEX: =HASHINDEX ( ' FRANKFURT !); 
HASHTAB[INDEX] := 6000 

Index besitzt also den Wert 73. 
Genauso einfach ist es, die Postleitzahl 
für Frankfurt anzuzeigen: 
INDEX: =HASHINDEX( ' FRANKFURT '); 
WRITELN('PLZ: ', HASHTAB[INDEX]; 

Das Verfahren besitzt jedoch einen 
gravierenden Nachteil. Die Hashfunk- 
tion, die zu einem Städtenamen einen 
Index zwischen O0 und HASHSIZE 
bestimmt, muß nicht eindeutig sein. Es 
kann also durchaus sein, daß es einen 
weiteren Städtenamen (sagen wir X- 
Stadt) gibt, der bei der obigen Berech- 
nung ebenfalls den Index 73 ergibt. 
Dann kommt es in der Hashtabelle zu 
einer Kollision (»hash clash«). In diesem 


Fall ist es mit der obigen Datenstruktur ' 


unmöglich festzustellen, ob in HASH- 
TAB[73] die Postleitzahl von Frankfurt 
oder X-Stadt steht. Im Programm nach 
Listing 2 wird das bisherige Konzept 
deshalb folgendermaßen modifiziert: 
TYPE HASHELEMENT = RECORD 

NAME: STRING; 

PLZ : INTEGER; 

NEXT: EHASHELEMENT 

END; 
VAR HASHTAB: ARRAY[O..HASHSIZE] OF 
tHASHELEMENT;; 

Man speichert in der Hashtabelle nur 
einen Zeiger auf einen Record vom Typ 
Hashelement. Dieses Record enthält 
neben der eigentlichen Information 
(PLZ) noch den Name der Stadt. Ein 
Record vom Typ HASHELEMENT ist 
natürlich nur dann erforderlich, falls 
eine Postleitzahl gespeichert werden 
soll. Ansonsten besitzt der Zeiger in 
HASHTAB den Wert NIL. Diese Vorbele- 
gung führt am Programmanfang die Pro- 
zedur LEERETABELLE durch. Das Feld 
NEXT im Record HASHELEMENT dient 
zur Behandlung von Kollisionen. Alle 
Schlüssel, die unter demselben Index 
stehen, werden in zufälliger Reihen- 
folge zu einer Liste mit dem Zeiger 
NEXT verkettet. Beim Einfügen und 
beim Abfragen muß deshalb eventuell 
diese Liste durchlaufen werden. Bild 6 
zeigt die Datenstruktur der Hashtabelle. 
Jeder Zeiger im Array HASHTAB kann 
also Kopf einer Liste von Einträgen 
sein. Bitte nehmen Sie die Werte in der 
Abbildung nicht zu genau, da aus nahe- 
liegenden Gründen nicht für jeden 
Namen die Hashfunktion berechnet 
wurde. 

Unter folgenden Bedingungen ist 
Hashing die mit Abstand beste Spei- 
cherungsform und jeder anderen Spei- 
chermethode in Geschwindigkeit und 
Programmieraufwand weit überlegen: 

1. Es existiert eine Grenze für die 
Anzahl der Werte, die gespeichert wer- 
den sollen. Die Größe der Hashtabelle 
ist etwa um zehn Prozent größer als 
diese Maximalanzahl festzulegen. 
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2. Eine sortierte Ausgabe in der Rei- 
henfolge der Schlüssel ist nicht erfor- 
derlich. Es werden nämlich die Schlüs- 
sel im Idealfall völlig ungeordnet über 
die Hash-Tabelle verteilt, so daß keine 
Möglichkeit existiert, von einem Eintrag 
zu seinem Nachfolger zu gelangen. 


Aus dem bisher Gesagten ist klar, daß 
die Hash-Funktion alle Schlüssel (im 
Beispiel die Städtenamen) möglichst 
gleichmäßig über den gesamten Index- 
bereich verteilen soll. Dabei muß man 
natürlich vermeiden, daß häufig auftre- 
tende ähnliche Schlüssel denselben 


Index erhalten. Soll zum Beispiel die 
Häufigkeit von Variablennamen in Pas- 
cal bestimmt werden, so darf eine 
Hashfunktion keinesfalls alle Namen mit 
nur einem Buchstaben auf denselben 
Index abbilden, da sonst ständig eine 
lange Liste durchsucht werden muß. 


Bild 3. Kundenliste mit leerem Kopf und Ende 


a) Durchlaufen der Liste 


b) Vor dem Einfügen 
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Bild 4. Die Kundenliste aus Listing 1 
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Bild 5. Eine doppelt verkettete Liste 
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Normalerweise ist die Hash-Funktion 
jedoch unkritischh, so daß man jede 
Information mit nur einem Zugriff auf 
einen Record erhält. Bemerkenswert ist 
noch die Speicherplatzökonomie des 
Verfahrens. Zwar ist ständig ein Array 
der Größe HASHSIZE vorhanden, die- 
ses enthält jedoch nur Zeiger (zwei 
Byte Länge). Nur für tatsächlich vorhan- 
dene Schlüssel wird ein Record vom 
Typ HASHELEMENT dynamisch er- 
zeugt, der neben der eigentlichen Infor- 
mation nur noch Speicherplatz für einen 
Zeiger (NEXT) benötigt. Unter den 
oben genannten zwei Bedingungen ist 
Hashing also wärmstens zu empfehlen, 
da es die Geschwindigkeit von Array- 
Zugriffen mit der Effizienz dynamischer 
Variablen verbindet. 

Als abschließendes Beispiel steht an, 
eine Aufgabe mit Graphen in Pascal zu 
lösen. Ein Graph ist in der Mathematik 
ein abstraktes Gebilde aus Knoten und 
Kanten, die von Knoten zu Knoten füh- 
ren. Uns interessiert-eine spezielle Art 
von Graphen, nämlich sloche, deren 
Kanten gerichtet und markiert sind. Das 
klingt schrecklich abstrakt, läßt sich 
jedoch leicht mit einer Abbildung (Bild 
7) erklären: Ein Knoten wird durch 
einen Kreis mit der Nummer des Kno- 
tens dargestellt, während ein Pfeil mit 
einem Zeichen zwischen zwei Knoten 
eine gerichtete, markierte Kante sym- 
bolisiert. Von Knoten 1 führt also eine 
Kante nach 2, die mit X markiert ist. 

Nachdem nun die grundlegenden 
Begriffe bekannt sind, zur eigentlichen 
Aufgabe. Durch einen Graphen kann 
man einfache »Sprachen« beschreiben: 
Bild 8 zeigt einen Graphen, der alle 
Wörter der Form 
AB 
ABAB 
ABABAB 
ABABABAB.. 
»erkennt«. Dies geschieht folgender- 
maßen: Am Anfang setzt man eine 
»Marke« auf den Eingangsknoten 1. 
Außerdem gibt man das Wort vor, von 
dem man wissen will, ob es vom Graph 
erkannt wird: 

ABAB 

Nun liest man Buchstabe für Buch- 
stabe und bewegt die Marke entspre- 
chend den Zeichen an den Kanten 
durch den Graphen. Mit dem ersten 
Buchstaben des Wortes »ABAB« 
erreicht man von Knoten 1 den Knoten 
2, da die Kante von 1 nach 2 mit dem 
Zeichen »A« markiert ist. Da der zweite 
Buchstabe ein »B« ist, wandert die 
Marke vom Knoten 2 entlang der Kante 
mit der Markierung »B« zum Knoten 3. 
Im dritten Schritt wird der dritte Buch- 
stabe (wieder ein »A«) untersucht, so 
daß sich die Marke von Knoten 3 zurück 
zu Knoten 2 bewegt. Mit dem letzten 
Buchstaben »B« kommt die Marke 


PROGRAM HASHING (INPUT, OUTPUT); 
(* SPEICHERUNG VON POSTLEITZAHLEN MIT HASHING UND ÜBERLAUFLISTEN *%) 


CONST HASHSIZE = 97; (* PRIMZAHL *) 
LEN = 20; 


TYPE STRING = ARRAY [1..LEN) OF CHAR; 
HASHELEMENT = RECORD 
NAME : STRING; 
PLZ : INTEGER; 
NEXT : ° HASHELEMENT 
END; 
HASHTAB ARRAYLO.. HASHSIZE)I OF ” 
N : STRING; 
PLZ : INTEGER; 


HASHELEMENT; 


PROCEDURE READSTRING (VAR S: STRING); 
(* STRING MIT LEN ZEICHEN VON DER TASTATUR LESEN *%) 
VAR I: INTEGER; 
C: CHAR 
BEGIN 
REPEAT READ(C) UNTIL C<>' '; (* VORLAUFENDE LEERZEICHEN IGNORIEREN 
I:e1; 


REPEAT 
stI):= C, Iıe I+1; 
READ(C) 

UNTIL (I>LEN) OR EOLN; 


LEN ZEICHEN ODER BIS ZUM ZEILENENDE 


WHILE I<LEN DO S MIT LEERZEICHEN AUF DIE VOLLE 
BEGIN LÄNGE ERWEITERN 
serie, vs Dee ei, 
END; 
READLN 
END; (* READSTRING %) 


FUNCTION HASHINDEX (NAME: STRING): INTEGER; 
(* LIEFERT DEN INDEX IN DER HASHTABELLE FÜR D\.ESEN NAMEN %) 
VAR I : IGILEN: 
INDEX: INTEGER; 
BEGIN 
INDEX: = 0; 
FOR I:= 1 TO LEN DO INDEX: = INDEX + ORD(NAMELI)); 
HASHINDEX: = INDEX MOD HASHSIZE; 
END; (* HASHINDEX *%) 
PROCEDURE SPEICHERE (N: STRING; POSTLEITZAHL: INTEGER); 
(*% EINTRAG NAME MIT POSTLEITZAHL, ZUR SICHERHEIT TEST, OB DOPPELT *) 


VAR INDEX INTEGER; 
P,NEU : “HASHELEMENT; 
DOPPELT: BOOLEAN; 


(* INDEX IN HASHTAB *“) 
(* ZEIGER IN ÜBERLAUFLISTE *) 


BEGIN 
INDEX: = HASHINDEX(N; 
P:= HASHTABI INDEX]; 


(* INDEX DES NAHENS BERECHNEN 
ZEIGER AUS DER HASHTABELLE 


DOPPELT: = FALSE; 
WHHILE P<>NIL DO 
BEGIN 


PRÜFE AUF DOPPELTEN EINTRAG 
FALLS AN DIESER POSITION 
BEREITS EINTRÄGE EXISTIEREN. 


DOPPELT: = DOPPELT OR (P°. NAME=N); 
P::= P , NEXT 
END; 


IF DOPPELT THEN 
WRITELNCN, 
ELSE 
BEGIN 
NEH( NEU); 
WITH NEU” DO 
BEGIN 
NAME: =N; PLZ:= POSTLEITZAHL; (* WERTE EINTRAGEN 
NEXT: = HASHTABL INDEX] (* VOR DEN ALTEN WERTEN EINFÜGEN 
END; 
HASHTABE INDEX]: = NEU (* NEU STEHT AN 1. POSITION 
END; (% IF *) 
END; (* SPEICHERE %) 


IST BEREITS GESPEICHERT! ') 


NEUEN RECORD ERZEUGEN 


FUNCTION POSTLEITZAHL( NAME: STRING): INTEGER; 
(* LIEFERT DIE POSTLEITZAHL ZU DIESEM NAMEN ODER DIE ZAHL 0 *%) 
VAR P : ° HASHELEMENT; 
INDEX: INTEGER; 
BEGIN 
INDEX: = HASHINDEX( NAME) ; 
POSTLEITZAHL: = 0; 


BESTIMME DEN INDEX IN HASHTAB 
VORLÄUFIG NOCH NICHT GEFUNDEN 


P:= HASHTABL INDEX]; 
HHILE P<>NIL DO 
IF P”. NAME=NAME THEN 
BEGIN 
POSTLEITZAHL: = P”. PLZ; 
P:= NIL 
END 
ELSE 
P: = P”. NEXT; 
END; (* POSTLEITZAHL %) 


DURCHSUCHE DIE ÜBERLAUFLISTE 


FUNKTIONSERGEBNIS FESTLEGEN 
ENDE DER SCHLEIFE ERZWINGEN 


SONST WEITERSUCHEN 


Listing 2. Datenspeicherung 


PROCEDURE LEERETABELLE; mit Hashing 
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(* LÖSCHE DIE GESAMTE HASHTABELLE *) 

VAR I: 0..HASHSIZE, 
BEGIN 

FOR I:= 0 TO HASHSIZE DO HASHTABLI): = NIL 
END; (* LEERETABELLE *) 


BEGIN (*% HAUPTPROGRAMM *) 
LEERETABELLE; (* NOCH IST NICHTS GESPEICHERT 
WRITELN(' SPEICHERUNG VON POSTLEITZAHLEN: (BEENDEN MIT NAME = *%)'); 


WRITEU' NAME: '); READSTRING(N); 
WHILE NL1)<>'*' DO 
BEGIN 
WRITEC'" PLZ :'); READ(PLZ); 
IF PLZ = O0 THEN (*% SUCHE DIE ZUGEHÖRIGE PLZ: 
WRITELN( POSTLEITZAHL(N)) 
ELSE 


BEGIN 
WRITELN; 
SPEICHERE(N, PL2); (*% SPEICHERE NAMEN MIT DIESER PLZ *%) 
END; 
WRITEC' NAME: '); READSTRING(N 
END; (* WHILE *%) 
END. 


Listing 2. Datenspeicherung mit Hashing (Schluß) 


Bild 6. Eine Hashtabelle hilft, 
Daten im Arbeitsspeicher extrem 
schnell und trotzdem mit wenig 
Programmieraufwand zu finden. 


Frankfurt 


6000 
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Bild 7. 
Ein gerichteter und 
markierter Graph 


schließlich auf Knoten 3 zu liegen. Da 
nun das Wort zu Ende ist, kann man aus 
der Position der Marke entscheiden, ob 
der Graph das Wort »erkannt« hat. Die 
Marke befindet sich im Knoten 3, den 
ein dicker Rand hervorhebt. Diese Kno- 
ten sind »akzeptierende« Knoten. 
Befindet sich die Marke am Schluß auf 
einem akzeptierenden Knoten, so ist 
das gesamte Wort erkannt und gehört 
somit zum Sprachschatz des Graphen. 
Sicher verstehen Sie jetzt auch, warum 
der Graph in Bild 8 alle Worte erkennt, 
die aus einer beliebig langen Folge von 
»AB« bestehen. Mit jedem »A« wird die 
Marke auf den Knoten 2 gesetzt, von 
wo aus mit »B« der akzeptierende Kno- 
ten 3 erreicht wird. Hätten wir jedoch 
das Wort 

ABA 

der obigen Testprozedur unterzogen, 
so wäre die Marke im dritten Schritt 
ebenfalls im Knoten 2 gelandet. Da das 
Wort an dieser Stelle bereits zu Ende 
ist, die Marke aber nicht auf einem 
akzeptierenden Knoten liegt, gehört 
»ABA« nicht zur Sprache des Graphen. 
Auch das Wort 

ABAA 

bleibt unerkannt, da mit ABA die Marke 
auf Knoten 2 liegt. Für den folgenden 
Buchstaben »A« existiert jedoch keine 
Markierung an einer Kante von 2 aus, 
so daß das gesamte Wort nicht erkannt 
wird. 

Bild 9 zeigt einen Graphen, der alle 
Worte der Form 
AAB 
AABAAB 
AABAABAAB 
AABAABAABAAB... ’ 
identifiziert. Das können Sie bei der 
Anwendung der obigen Regeln für 
einige Beispielworte leicht herausfin- 
den. 

Listing 3 stellt ein Programm dar, das 
das mühsame Verfolgen des Weges der 
Marke durch den Graphen automatisch 
durchführt. Genauer gesagt soll das 
Programm folgendes leisten: 

1. Es wird eine Beschreibung des 
Graphen eingelesen. 

2. Es wird geprüft, ob überhaupt ein 
akzeptierender Knoten erreicht werden 
kann (siehe Bild 10 für ein Gegenbei- 
spiel). 

3. Für beliebig vorgegebene Wörter 
wird geprüft, ob diese erkannt werden. 

Zunächst muß eine Datenstruktur für 
die interne Repräsentation des Gra- 
phen im Speicher des Computers 
gefunden werden. Da es beliebig viele 
Knoten und Kanten geben kann, wird 
man diese mit dynamischen Variablen 
darstellen. Graphen sind nämlich gera- 
dezu das klassische Beispiel für die 
Verwendung von Zeigern. Für jeden 
Knoten speichert man seine Nummer 
und eine Liste der Kanten, die von die- 
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sem Knoten wegführen. Jede Kante in 
dieser Liste enthält ihrerseits die Mar- 
kierung und einen Zeiger auf den Kno- 
ten, zu dem sie führt. 


TYPE TKNOTENREF =! TKNOTEN; 

TKANTENREF =! TKANTE; 

TKNOTEN = RECORD 

NUMMER: INTEGER; 
KANTENLISTE: TKANTENREF 
END; 

TKANTE = RECORD 
MARKIERUNG : CHAR; 

NEXT: TKANTENREF; 
NACH: TKNOTENREF; 
END; 

Es gibt also zwei Zeigertypen. Zeiger 
vom Typ TKNOTENREF zeigen immer 
auf Knoten (Records vom Typ TKNO- 
TEN), während Zeiger vom Typ TKAN- 
TENREF immer auf Kanten (Records 
vom Typ TKANTE) weisen. Die Bilder 11 
und 12 verdeutlichen jeweils die interne 
Darstellung eines Graphen. Die großen 
Kästen verbildlichen Records vom Typ 
TKNOTEN. Sie enthalten also die Num- 
mer des Knotens. Diese Nummer ist 
negativ, falls es sich bei dem Knoten um 
einen akzeptierenden Knoten handelt. 
Außerdem ist jeder Knoten Kopf einer 
Liste von Records des Typs TKANTE 
(kleine Kästen). Für jede Kante wird das 
Zeichen, mit dem die Kante markiert ist, 
und ein Zeiger auf den Knoten am Ende 
der Kante, gespeichert. Da alle Kanten, 
die an einem Knoten beginnen, zu einer 
Liste verkettet sind, wird noch das Feld 
NEXT benötigt, in dem ein Zeiger auf 
die nächste Kante in der Liste enthalten 
ist. Von »außen« erreicht man den 
gesamten Graphen nur durch die Zei- 
gervariable ANFANG. 

Als erstes nun zur Funktion 
ERKANNT. Sie verwendet diese Daten- 
struktur, um zu prüfen, ob das Wort in 
dem Array W 
VAR W: ARRAY[1..100] OF CHAR; 
akzeptiert wird. Die Strategie ist sehr 
einfach und entspricht dem obigen 
Wandern einer Marke durch den Gra- 
phen. Der Parameter Q gibt diemomen- 
tane Position der Marke (auf einem Kno- 
ten) an. | indiziert den momentan bear- 
beiteten Buchstaben im Wort W. Das 
Ende des Wortes markiert ein Dollar- 
Zeichen »$«. Wurde dieses Ende gele- 
sen, so ist das Wort genau dann akzep- 
tiert, wenn dermomentane Knoten (Qt) 
ein akzeptierender Knoten ist (Nummer 
istnegativ). Ansonsten wird die Kanten- 
liste nach einer Kante mit der passen- 
den Markierung durchsucht. Stimmt die 
Markierung mit dem laufenden Buch- 
staben W[I] überein, so setzt sich die 
Prüfung mit dem nächsten Buchstaben 
und dem Endknoten der Kante fort. Die 
Funktion ERKANNT ist also rekursiv. 
Bemerkenswert ist noch die Tatsache, 
daß von einem Knoten eventuell zwei 
oder mehrere gleich markierte Kanten 
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PROGRAM GRAPH (INPUT, OUTPUT); 
DIESES PROGRAMM DEMONSTRIERT DIE VERWENDUNG VON DYNAMISCHEN VARIABLEN 

(* ZUR DARSTELLUNG EINES GERICHTETEN, MARKIERTEN GRAPHEN IM SPEICHER DES 
COMPUTERS. DIE PROZEDUR GRAPHEINLESEN BAUT EIN NETZWERK AUS RECORDS 
DER TYPEN TKNOTEN UND TKANTE AUF, DESSEN ERSTER KNOTEN ÜBER DEN 
ZEIGER ANFANG ERREICHT WERDEN KANN. DIE FUNKTIONEN ISTLEER UND 
ERKANNT BENUTZEN DIESE DATENSTRUKTUR, UM DIE DURCH DEN GRAPHEN BE- 
SCHRIEBENE SPRACHE NÄHER ZU UNTERSUCHEN (S. TEXT) 


CONST ENDE = '$'; 


(* MARKIERUNG AM ENDE DER EINGABE 


TYPE TEINGABE = CHAR; (* DIE MARKIERUNGEN DER KANTEN BESTEHEN 
(* AUS EINZELNEN ZEICHEN 
TKNOTENREF = "TKNOTEN; (* ZEIGER AUF EINEN KNOTEN 
TKANTENREF = "TKANTE; (* ZEIGER AUF EINE KANTE 
TKNOTEN = RECORD h 
NUMMER: INTEGER; (% NEGATIV, FALLS AKZEPTIEREND 
ISTMARKIERT: BOOLEAN; (* FÜR FUNKTION ISTLEER 
KANTENLISTE: TKANTENREF; (* LISTE ALLER KANTEN, DIE 
(* VON DIESEM KNOTEN WEGFÜHREN 
(* VERKETTET ALLE KNOTEN IM GRAPH 
(* ZU EINER LISTE 


NEXT: TKNOTENREF 


END; 
TKANTE = RECORD 
MARKIERUNG: TEINGABE; 
NACH: TKNOTENREF; (* ZIELKNOTEN DIESER KANTE 
NEXT: TKANTENREF; (% ZEIGER AUF DIE NÄCHSTE KANTE 
(% DIE AM SELBEN KNOTEN BEGINNT 
END; 
VAR KNOTENLISTE: TKNOTENREF; (* ANFANG DER LISTE ALLER KNOTEN 
ANFANG TKNOTENREF; (* ERSTER KNOTEN IM GRAPHEN 
H: ARRAY (1..100) OF CHAR; (* WORT FÜR PRÜFUNG, OB ERKANNT 
I: INTEGER; 
PROCEDURE GRAPHEINLESEN; 
KOMPLETTEN GRAPHEN IM SPEICHER AUFBAUEN. ANFANG (GLOBAL) ZEIGT AUF 
DEN ERSTEN EINGEGEBENEN KNOTEN. FÜR JEDEN KNOTEN WIRD ISTMARKIERT: = 
FALSE GESETZT. AKZEPTIERENDE KNOTEN WERDEN MIT NEGATIVEN NUMMERN 
GESPEICHERT 
DIE EINGABE VON DER TASTATUR HAT FOLGENDES FORMAT: PRO ZEILE EINE 
KANTE. NACHEINANDER NUMMER DES AUSGANGSKNOTENS, EIN ZEICHEN UNGLEICH) 
LEERZEICHEN ALS MARKIERUNG UND DIE NUMMER DES ZIELKNOTENS. 
DIE LETZTE ZEILE WIRD MIT EINER O0 BEENDET 
VAR 1STERSTER: BOOLEAN; (% TRUE BEIM EINLESEN DER ERSTEN KANTE 
voN : INTEGER; (* NUMMER DES AUSGANGSKNOTENS 
NACH : INTEGER; (* NUMMER DES ZIELKNOTENS 
MIT : TEINGABE; (* MARKIERUNG DEF KANTE 
V‚N : TKNOTENREF; (* ZEIGER AUF AUSGANGS- UND ZIELKNOTEN 
KANTE TKANTENREF; (* ZEIGER AUF NEU EINZUFÜGENDE KANTE 
FUNCTION SUCHEKNOTEN (N: INTEGER): TKNOTENREF; 
(* SUCHE IN DER LISTE ALLER KNOTEN NACH EINEM KNOTEN, DER DIE NUMMER%) 
(* N BESITZT. DAS FUNKTIONSERGEBNIS IST EIN ZEIGER AUF EINEN RECORD *) 
(* VOM TYP TKNOTEN ODER DER WERT NIL, FALLS KEIN SOLCHER KNOTEN GE- 
(* FUNDEN WURDE. 
VAR Q: TKNOTENREF; 
BEGIN 
Q: = KNOTENLISTE; 
SUCHEKNOTEN: = NIL; 
WHILE Q<>NIL DO 
IF Q°. NUMMER = N THEN 
BEGIN 
SUCHEKNOTEN: = Q; 
Q: = NIL 


ZEIGER AUF DEN ANFANG DER LISTE 
FUNKTIONSERG. VORLÄUFIG FESTLEGEN 
SOLANGE NOCH KNOTEN IN DER LISTE SIND 
KNOTEN GEFUNDEN, 


ZEIGER ALS FUNKTIONSERGEBNIS SETZEN 
SCHLEIFE BEENDEN 
END 
ELSE 
Q: = Q°. NEXT; SONST WEITER MIT NÄCHSTEM KNOTEN IN 
* DER LISTE 
END; (%* SUCHEKNOTEN *) 
FUNCTION NEUERKNOTEN (N: INTEGER): TKNOTENREF; 
(* LEGE NEUEN ( UNMARKIERTEN) KNOTEN MIT DER NUMMER N AN. DER RECORD 
(* WIRD IN DIE LISTE ALLER RECORDS DES GRAPHEN EINGEFÜGT, DAMIT ER 
(* SPÄTER MIT DER FUNKTION SUCHEKNOTEN GEFUNDEN WIRD. 
VAR Q: TKNOTENREF; 
BEGIN 
NEH(Q); 
WITH Q° DO 
BEGIN 
NUMMER: = N; 
ISTMARKIERT: = FALSE; 
KANTENLISTE: = NIL; 


SPEICHERPLATZ FÜR NEUEN RECORD HOLEN 
RECORD KORREKT VORBELEGEN: 


NUMMER DES KNOTENS 
NOCH UNMARRIERT 
BIS JETZT BEGINNT NOCH KEINE KANTE AN 
DIESEM KNOTEN. 
NEXT: = KNOTENLISTE; Q@ WIRD AM ANFANG DER KNOTENLISTE EIN- 
END; 5 GEFÜGT. 
RNOTENLISTE: =Q; Q IST JETZT ERSTER KNOTEN IN KNOTENL. 
NEUERKNOTEN: =Q; FUNKTIONSERGEBNIS IST ZEIGER AUF Q° 
END; (* NEUERKNOTEN *) 
BEGIN (* GRAPHEINLESEN *%) 
KNOTENLISTE: = NIL; 
ISTERSTER: = TRUE; 
READ( VON); 
HHILE VON<>0 DO 
BEGIN 
REPEAT 
READ( MIT) 
UNTIL MITe>' '; 
READLN (NACH); 
V:= SUCHEKNOTEN( VON); 
IF V=NIL THEN 
V: =NEUERKNOTEN( VON); 


NOCH IST DIE KNOTENLISTE LEER 
DIE FOLGENDE KANTE IST DIE ERSTE *) 


ENDE DER EINGABE WIRD DURCH KNOTEN MIT*) 
* DER NUMMER O0 GEKENNZEICHNET *) 


MARKIERUNG UNGLEICH LEERZEICHEN LESEN *%) 


JETZT NOCH DIE NUMMER DES ENDKNOTENS *) 
HOLE ZEIGER AUF DEN AUSGANGSKNOTEN 
AUSGANGSKNOTEN IST NEU, DESHALB 

NEUEN KNOTEN ANLEGEN 


:ON\PUTER 


SUCHEKNOTEN( NACH); HOLE ZEIGER AUF DEN ZIELKNOTEN 
IF N=NIL THEN FALLS NICHT BEREITS GESPEICHERT 
N: = NEUERKNOTEN( NACH); (* NEUEN KNOTEN ANLEGEN 
NEH( KANTE); (* BILDE JETZT EINE NEUE KANTE 
KANTE“. MARKIERUNG: = MIT;(% EIN ZEICHEN ALS MARKIERUNG EINTRAGEN 
KANTE”. NACH: = N; (* KANTE ENTHÄLT ZEIGER AUF ZIELKNOTEN 
(* JETZT KANTE IN DER LISTE DER KANTEN VON KNOTEN V° EINFÜGEN: 
KANTE”. NEXT: = V° KANTENLISTE; 
V°. KANTENLISTE: = KANTE; 
IF ISTERSTER THEN 
BEGIN 
ISTERSTER: = FALSE; 
ANFANG: = V 
END; 
READ( VON) 
END; (% WHILE %) 
END; (% GRAPHEINLESEN %) 
FUNCTION ISTLEER (Q: TKNOTENREF): BOOLEAN; 
(% DIESE FUNKTION PRÜFT FÜR DEN KNOTEN Q°, OB KEIN AKZEPTIERENDER 
(* KNOTEN ERREICHT WERDEN KANN. IN DIESEM FALL IST ISTLEER FÜR ALLE 
(* VON Q ERREICHBAREN (NICHT MARKIERTEN) KNOTEN EBENFALLS TRUE 
(* AM ANFANG MUSS DAS FELD ISTMARKIERT IM RECORD TKNOTEN FÜR ALLE 
(* KNOTEN AUF FALSE GESETZT WERDEN 


(*% BEIM ERSTEN KNOTEN ANFANG SETZEN 


VAR LEER : BOOLEAN; 
NACHF: TKANTENREF; 
BEGIN 
Q°. ISTMARKIERT: = TRUE; 


MARKIERE KNOTEN, DAMIT DIESER NICHT 
DOPPELT GEPRÜFT WIRD 

FALLS Q SELBST EIN AKZEPTIERENDER 
KNOTEN IST, KANN NATÜRLICH EIN AKRZ. 
KNOTEN ERREICHT WERDEN. 

ZEIGER AUF DIE ERSTE KANTE, DIE BEI 
KNOTEN Q BEGINNT 


LEER: = Q°. NUMMER>=0; 


NACHF: = Q°. KANTENLISTE; 


(* SOLANGE KEIN AKZEPTIERENDER KNOTEN ERREICHT WURDE, VERFOLGE ALLE%) 


(% KANTEN, DIE VON Q WEGFÜHREN: 
WHILE LEER AND ( NACHF<>NIL) DO 
BEGIN 
IF NOT NACHF”, NACH”. ISTMARKIERT THEN 


(% FALLS ZIELKNOTEN NER KANTE UNMARKIERT *%) 


LEER: = ISTLEER( NACHF”. NACH); {* PRÜFE DISEN ZIELKNOTEN 
NACHF: = NACHF“. NEXT; (* WEITER MIT DER NÄCHSTEN KANTE 
END; 
ISTLEER: = LEER; (* FALLS LEER IMMER NOCH TRUE IST, WIRD 
(*% ALSO KEIN AKZEPPT. KNOTEN ERREICHT 
END, (* ISTLEER *) 
FUNCTION ERKANNT (Q: TKNOTENREF; I: INTEGER): BOOLEAN; 
(* PRÜFE, OB VON Q AUS MIT DER BUCHSTABENFOLGE AB WII] EIN AKZEP- 
(* TIERENDER KNOTEN ERREICHT WIRD. 
VAR OK : BOOLEAN; 
NACHF: TKANTENREF; 
BEGIN 


IF WEI) = ENDE THEN (* ENDE DES WORTES W ERREICHT: 


ERKANNT: = Q°. NUMMER<O (* ERKANNT, FALLS Q° EIN AKZEPTIERENDER 


(%* ZUSTAND IST. 
ELSE 
BEGIN 
OK: = FALSE; 


(* KANTEN, DIE BEI Q BEGINNEN 
(* PROBIERE ALLE KANTEN, DIE BEI Q BEGINNEN UND MIT WII) 
0* MARKIERT SIND, BIS ERFOLG (OK=TRUE) 
WHILE NOT OK AND ( NACHF<>NIL) DO 
BEGIN 
IF NACHF”. MARRIERUNG=HWLI] THEN 
OK: = ERKANNT( NACHF”. NACH, I+1); 
(* WEITER MIT DEM NÄCHSTE BUCHSTABEN 
NACHF: = NACHF”. NEXT; (* NÄCHSTE KANTE IN DER LISTE 
END; 
ERKANNT: = OK 
END; (* IF %) 
END; (* ERKANNT *) 


(* FUNKTIONSERGEBNIS FESTLEGEN 


BEGIN (* HAUPTPROGRAMM *%) 


GRAPHEINLESEN; (* HOLE BESCHREIBUNG DES GRAPHEN 
WRITE(' DIE AKZEPTIERTE SPRACHE IST '); 
IF NOT ISTLEER( ANFANG) THEN (* PRÜFE, OB VOM ANFANGSKNOTEN EIN 
(* AKZ. KNOTEN ERREICHBAR IST. 
WRITE C' NICHT '); 
WRITELN ('LEER.'); 
REPEAT 


RRITELN (' GEBEN SIE JETZT DAS ZU TESTENDE WORT EIN ($ AM WORTENDE)'); 


WRITELN ('(PROGRAMMENDE MIT DEM WORT $)'); 
I:= 0; 
REPEAT (* STRING W EINLESEN 
I:= I#+1; READ (HLI)D; 
UNTIL WLII=ENDE; 
RRITELN; WRITE ('DAS WORT IST '); 
IF NOT ERKANNT( ANFANG, 1) THEN (* PRÜFE, OB MIT DEM HORT W VOM 
(* ANFANGSKNOTEN EIN AKZ. KNOTEN 
(* ERREICHBAR IST 
HRITEC' NICHT '); 
WRITELNC' IN DER SPRACHE ENTHALTEN. '); 
UNTIL WL1)='$'; 


END. 


Listing 3. Das Programm zum Untersuchen von Graphen. Das Zeichen »"« 
entspricht dem Hochpfeil (»1«). 


0% NOCH IST KEIN AKZ. ZUSTAND GEFUNDEN 
NACHF: = Q . KANTENLISTE;(* ZEIGER AUF DEN ANFANG DER LISTE DER 


ausgehen können. In diesem Fall prüft 
ERKANNT alle Wege, bis eine Kante zu 
einem Erfolg führt. 

Ähnlich sieht die Lösung der Teilauf- 
gabe 2 aus. Um festzustellen, ob über- 
haupt ein Wort erkannt wird, genügt es, 
eine beliebig markierte Kantenfolge 
vom Anfangsknoten zu einem akzeptie- 
renden Knoten zu finden. Daher wird 
beim Aufruf ISTLEER für den Knoten Q, 
der als Parameter übergeben wird, 
zunächst geprüft, ob Q selbst ein 
akzeptierender Knoten ist. Wenn ja, so 
existiert ein akzeptiertes Wort. Anson- 
sten werden alle Kanten verfolgt, und 
geprüft, ob man über eine dieser Kan- 
ten einen Endzustand erreichen kann. 
Wiederum ruft sich als ISTLEER rekur- 
siv auf. Jedoch würde ohne weitere 
Vorkehrung dieser Algorithmus beim 
Graphen aus Bild 10 in eine Endlos- 
schleife geraten. Vom Ausgangsknoten 
1 erreicht man den Knoten 2. Da man 
alle Kanten von 2 verfolgt, gelangt man 
über die Kante »B« zurück zu Knoten 1. 
Von dort springt man wieder zu Knoten 
2 und so weiter. Die Lösung besteht 
darin, daß man alle bereits besuchten 
Knoten markiert. Dazu wird der Record 
um das Feld 
ISTMARKERT: BOOLEAN 
erweitert. Bei der Eingabe des Graphen 
sind alle Knoten unmarkiert. Erreicht 
man jedoch in der Funktion ISTLEER 
den Knoten Q, so wird dieser mit 
Qt :ISTMARKERT:= TRUE 
gekennzeichnet. Bevor man nun einen 
rekursiven Aufruf der Funktion IST- 
LEER ausführt, wird zunächst wieder 
geprüft, ob der Knoten nicht bereits 
untersucht und markiert wurde. 

Das größte Problem ist sicherlich die 
Eingabe eines Graphen. In diesem Bei- 
spiel wird eine kantenorientierte Ein- 
gabe vorgenommen: Der Graph in Bild 8 
wird folgendermaßen beschrieben: 

1.4.2 

2B-3 

-3A 2 
0 

Jede Zeile benennt also die Nummer 
des Anfangsknoten, die Markierung der 
Kante und die Nummer des Endkno- 
tens der Kante. Das Ende der Eingabe 
markiert die Zahl Null. Die Eingabe 
nimmt die Prozedur EINLESEN vor. 
Zunächst wird die Nummer des Aus- 
gangsknotens (VON) gelesen, an- 
schließend alle Leerzeichen ignoriert, 
bis die Markierung (MIT) indentifiziert 
wurde. Daran schließt sich die Nummer 
des Endknotens an. Akzeptierende 
Knoten sind wieder durch negative 
Zahlen kenntlich. 

Für jeden Knoten wird zunächst fest- 
gestellt, ob bereits ein Record vom Typ 
TKNOTEN mit dieser Nummer existiert. 
Die Funktion SUCHEKNOTEN liefert zu 
einer Nummer N einen Zeiger auf einen 
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Bild 8. Dieser Graph kann eine einfache 
Zeichenfolge »erkennen« 


Bild 9. Ein Graph zum Erkennen einer 
weiteren Zeichenfolge 


Bild 10. Dieser » 


Graph akzeptiert überhaupt kein Wort 


ANFANG 


Bild 12. Interne Darstellung des Graphen aus Bild 10 im Speicher 


DIE AKZEPTIERTE SPRACHE IST NICHT LEER 
ABAB$ 

DAS WORT IST IN DER SPRACHE ENTHALTEN 

ABA$ 

DAS WORT IST NICHT IN DER SPRACHE ENTHALTEN 
ans 

DAS WORT IST NICHT IN DER SPRACHE ENTHALTEN 
$ 


EB.“ 
2b >2uunn- 
>c>>u>u> 
un=--nw-en 


0 
DIE AKZEPTIERTE SPRACHE IST LEER. 
$ 


DIE AKZEPTIERTE SPRACHE SIT NICHT LEER 

AAB$ 

DAS WORT IST IN DER SPRACHE ENTHALTEN 
AABAAB$ 

DAS WORT IST IN DER SPRACHE ENTHALTEN 

[X 

DAS WORT IST NICHT IN DER SPRACHE ENTHALTEN 
$ 


Bild 13. Einige Probeläufe für den Graphen aus Bild 8 


Knoten-Record, oder den Wert NIL, 
falls noch kein solcher Record vorkam. 
Eventuell muß also mit der Funktion 
NEUERKNOTEN ein Knoten mit der 
Nummer N angelegt werden. Die Funk- 
tion liefert einen Zeiger auf den neuen 
Record, der außerdem als unmarkiert 
gekennzeichnet wird. 

Anschließend kann in EINLESEN ein 
neuer Record vom Typ TKANTE mit der 
angegebenen Markierung angelegt 
werden. Dabei wird im Feld NACH ein 
Zeiger auf den Endknoten N (mit der 
Nummer NACH) eingetragen und 
schließlich dieser Kanten-Record in die 
Liste der Kanten des Knotens V (mit der 
Nummer VON) eingefügt. 

Da der Ausgangsknoten immer als 
erster in der Eingabe genannt wird, 
benutzt man die boolesche Variable 
ISTERSTER. Falls ISTERSTER=TRUE 
ist, muß also der Zeiger ANFANGSK- 
NOTEN noch auf den Record VI 
gesetzt werden. 

Einige Probeläufe des Programmes 
mit verschiedenen Graphen zeigt Bild 
13. 

Natürlich ist nicht zu erwarten, daß 
ein absoluter Anfänger den gesamten 
Artikel sofort in die Praxis umsetzen 
kann. Die letzten Beispiele zeigen 
jedoch deutlich, daß Pascal für kompli- 
ziertere Aufgaben einen deutlichen Lei- 
stungsvorsprung gegenüber anderen 
Sprachen besitzt, die entweder nur ein- 
fache Datenstrukturen aufweisen 
(Basic, Fortran, Cobol), oder aber keine 
so wirkungsvolle Abstraktion von der 
internen Darstellung der Daten erlau- 
ben, so daß die Typüberprüfung in Aus- 
drücken und bei der Parameterüber- 
gabe auf den Programmierer abgewälzt 
wird (C und Forth). 

(Florian Matthes/ev) 


Info: Empfehlenswerte Pascal-Literatur: 

F. Matthes, »Pascal mit dem C 64«, Markt&Technik Verlag (mit 
Pascal-Compiler aus Diskette) 

N. Wirth, »Algorithmen und Datenstrukturen«, Teubner Studien- 
bücher 

K. Mehlhorn, »Effiziente Algorithmen«, Teubner Studienbücher 

K. Jensen, N. Wirth, »Pascal, User Manual and Report, Lecture 
Notes in Computer Science, Vol. 18«, Springer Verlag (Berlin) 

H. Schauer »Pascal für Anfänger«, R. Oldenbourg Verlag 

E. Kaucher, R. Klatte, Ch. Ullrich, »Programmiersprachen im 
Griff, Band 2: Pascal 4, Bl-Hochschultaschenbücher 

R. Busch, »Der sichere Einstieg in Pascal«, Franzis’ Verlag 

R.-D. Klein, »Was ist Pascal?«, Franzis’ Verlag 

J.N.P. Hume, R.C. Holt, »UCSD-Pascal«, Markt&Technik Verlag 

DT. Barnard, Crawford, »Pascal - Probleme und Anwendun- 
gen«, Markt&Technik Verlag 

I. Lüke, P. Lüke, Turbo Pascal«, Markt&Technik Verlag 

Turbo Pascal Handbuch«, Heimsoeth Software (mit Turbo Pas- 
cal Compiler auf Diskette) 

Turbo Tutor«, Heimsoeth Software (mit Demo-Diskette) 

K.H. Rolike, »Das Turbo Pascal Buch«, Sybex-Verlag 

A. Luehrmann, H. Pechham, »Appel Il Pascal«, Tewi-Verlag 

Prof. Nestle, E. Ostertag, »Kleiner Sprachführer Basic-Logo- 
Pascal«, Markt&Technik Verlag 

K. Mikitta, »Pascal für Schulen«, Aulis-Verlag 

I.R. Wilson, A.M. Addyman, »Pascal«, Carl-Hauser-Verlag 

K.H. Rollke, »Grundkurs in Pascal, Band 1 und 2«, Sybex-Verlag 

R. Zaks, »Einführung in Pascal und UCSD-Pascak, Sybex- 
Verlag 

J. Tiberghien, »Das Pascal Handbuch«, Sybex-Verlag 
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Cursor-Kur 
mit Turbo-Pascal 


Der unstet flackernde Cursor des C 128 ist vielen 
CP/M-Anwendern ein Dorn im Auge. Hier naht 
Abhilfe in Form eines Turbo-Pascal-Programms. 


ommodore hat beim neuen Basic 7.0 an den gestreß- 

ten Programmierer gedacht und gleich mehrere mög- 

liche Cursor-Arten vorprogrammiert, die auf einfache 
Weise, nämlich durch Drücken der Escape-Taste und eines 
Buchstabens, für den Anwender erreichbar sind. So ist 
sowohl ein blinkender Strich- oder Unterstreichungs-Cursor 
wie auch ein stehender Block-Cursor machbar (siehe 
Tabelle). 

Anders allerdings sieht es im CP/M-Modus des Computers 
aus. Hier sind dem Programmierer die Hände gebunden. Er 
muß sich wohl oder übel den närrisch flackernden Cursor 
gefallen lassen. 

Unter CP/M sind Eingriffe in das Betriebssystem des Com- 
puters weitaus schwieriger zu realisieren als unter Basic. Für 
die Mehrheit der Commodore-Besitzer ist die Maschinen- 
sprache des Z80-Prozessors wohl mehr als ein Buch mit sie- 
ben Siegeln, so daß ein direkter Zugriff per Assembler aus- 
scheidet. Außerdem erfordern Eingriffe in das Betriebssy- 
stem unter CP/M genaueste Kenntnisse des CP/M-Systems. 
Auch diese Kenntnisse dürften bei vielen Anwendern fehlen. 

Aber dies ist trotzdem noch kein Grund zum Verzweifeln, 
denn wozu gibt es höhere Programmiersprachen? Aus oben- 


(#$u+#*) 


a) 
(# Beispiel für Zugriff auf die I/0-Ports des 851®: *) 
(* Utility zum komfortablen ändern des VDC Cursor Modes #) 
(#* Turbo Pascal auf Commodore 128 unter CP/M *) 
DEZ SZ 2 2 2 2272022 zZ 02 nz zZ E22 2227222727772 27222727272) 


program cursorset (input, output); 
var BlinkMaske, 


StartLine: byte; 
cı charz 


(* Maske für Blinkbits in Reg. 18 *) 
(* Rasterstartzeile des Cursors #) 


procedure PortOut (adr: integer; wert: byte); 
(#* Ausgabe von wert auf dem 16-Bit-Port adr #) 
begin 
inline ($ed/$4b/adr/ (# LD 
+#3a/wert/ (#* LD 
$ed/$79 (#* OUT 
> 
end (# procedure PortOut *); 


BC,tadr) #) 
A,(wert) %*) 
(C),A) *) 


procedure PortIn (adr: integer; var wert: byte); 
(# Lesen von Port adr nach wert *) 
begin 
inline ($ed/$4b/adr/ LD 

$ed/$78/ IN 
$dd/$2a/wert/ LD 
$dd/$77/$00/ LD 
$dd/$36/$01/$BB (# LD 
> 

end (#* procedure PortIn #); 


BC, (adr) 
A,(C) 

IX, (wert) 
(1X+8) ,A 
(IX+1),@ 


function vdeIn (reg: byte): byte; 
(# Liefert den Wert des VDC-Registers reg 
var x: byte; (#* Hilfsvariable #) 
begin 
PortOut ($ds@@, reg); 
repeat 
PortIn ($dösB®, x) 
until x>=128; 
PortIn ($d4B1, x); 
vdeIn := x 
end (# function vdeIn »)5 


(#* Registeradresse an VDC #) 
(* Status lesen #) 


(* Daten-Register lesen #) 


procedure vdcOut (reg, wert: byte); 

(# Schreibt wert in VDC-Register reg #) 
var x: byte; (* Hilfsvariable #) 
begin 


PortDOut ($d4B@, reg); (* Registeradresse an VDC #) 


genannter Not entstand das folgende Programm in Turbo- 
Pascal 3.0. Es bietet dem Benutzer die Möglichkeit, sich sei- 
nen Cursor nach eigenen Wünschen menügesteuert anzu- 
passen. Das Programm kann nach dem Eingeben in ein 
COM-File compiliert werden, so daß man es ohne Probleme 
auf all seinen Disketten installieren kann. Es besteht sogar 
die Möglichkeit, das Programm von PROFILE.SUB aus aufzu- 
rufen, damit spart man sich das Laden nach dem BOOTen. 
Nach der Meldung »Cursor-Mode-Swap für C 128 und CP/M 
3.0« kann man sich durch zwei oder drei Tastendrucke seinen 
persönlichen Cursor installieren. 

Noch etwas zum Abtippen: Das Listing wurde im DIN- 
Modus der Tastatur eingegeben. Daher konnte zwar mit deut- 
schen Umlauten gearbeitet werden, die geschweiften Kom- 
mentarklammern und die eckigen Mengenklammern wurden 
aber durch die von Turbo-Pascal ebenfalls zugelassenen 
Ersatzzeichen »(*« und »*)« (für geschweifte Klammern) 
beziehungsweise »(.« und ».)« (für eckige Klammern) ersetzt. 

(Udo Reetz/ev) 


Escape-Sequenz 
ESC+S 
ESC+U 
ESC+F 
ESC+E 


Cursor-Mode 


Block 
Strich 


Blinken 
Stehen 


Tabelle der möglichen Cursor-Formen im Basic 7.0 


PortIn ($d&sB@, x) 
until x>=128; 
PortOut ($d4@1, wert) 
end; 


(#* Status lesen #) 


(* Daten-Register schreiben #) 


begin (* main #) 
elrscer; 
writeln (’Cursor-Mode-Swap für C 128 und CP/M 3.0°: 20); 
writeln (==eommessemsssoosessesseseeenseesenneee : 20); 
writeln; writeln; writeln; writeln; 
write (' Cursor B)linkend oder S)tehend ?°); 
repeat 
read (kbd, c);5 
until cin (. ‘'b’‘, 'B’, 's' "5° 33 
writeln (c); writeln; 
if e in (u 's’, ’8"7 .) 
then BlinkMaske := 8 
else 
begin 
write (' 
repeat 
read (kbd, c);5 
until cin (. 's’, 'S’, 'n‘, 'N’ .)5 
writeln (c); writeln; 
if cin („ 's’, 'S’ .) 
then BlinkMaske := $48 
else BlinkMaske := $48 
end (* else #); 
write (' Underline- oder B)lockcursor ? ’); 
repeat 
read (kbd, c)5 
until c in (, u’, ’U’, 
writeln (c); writeln; 
if cin (. ‘u’, ‘U’. 
then Startline := 7 
else StartLine := B; 
writeln; writeln; 
writeln ('##** Änderungen durchführen ? ####")5 
repeat 
read (kbd, c) 
until cin (. 'j’, 'J’, 'n'’,„ "N’ .)5 
writeln (c); writeln; 
if cin (. 'j’, ‘I’ 09) 
then 
begin 
vdcOut (18, BlinkMaske or StartLine); 
vdcQut (11,7) 
end (#* else *) 
(# program cursorset #) 


S)chnell oder N)ormal blinken ? ’)5 


"b’, Bro.) 


end. 


Listing zu unserer Cursor-Kur 


Möchten Sie auch einmal wie ein König ein Land 
regieren und das Staatsgeschick lenken? Dann 
versuchen Sie, als Kaiser Ihr Reich instand zu hal- 
ten und für Wohlstand zu sorgen. 


aiser oder auch Hammurabi ist eine Strategie- 

Simulation. Ihre Aufgabe ist es, durch Landkäufe 

oder -verkäufe, Verkauf von Getreide optimale Aus- 
nutzung der Anbauflächen und gerechte Verteilung der Nah- 
rungsmittel an die Bevölkerung das Reich in bestem Zustand 
zu erhalten. So kann zum Beispiel das Land zugrunde gehen, 
wenn die Bevölkerung nichts zu essen hat. Andererseits wol- 
len die Leute eben mit vollem Bauch weniger arbeiten, so daß 
die Produktivität absinkt. Regeln Sie alles so, daß es Ihrem 
Reich wohler geht, so daß Sie lange regieren können. 


Das Programm »Kaiser« (Listing) ist nur ein kleines, aber 
lauffähiges Grundgerüst, das ohne weiteres ausbaufähig ist. 
So können noch Faktoren wie arbeitsfaule Bevölkerung, 
Überfälle brandschatzender Horden, Unwetterkatastrophen 
oder vieles mehr mit integriert werden, um das Spielreizvoller 
zu gestalten. Je komplexer die Faktoren sind, desto attrakti- 
ver wird auch das Spiel selbst. 

Die Random-Funktion, mit der hier gearbeitet wird, ist nicht 
in jedem Pascal implementiert. Fehlt sie bei Ihnen, so müssen 
Sie noch eine Prozedur »random« mit in das Programm ein- 
bauen. Spielen Sie ruhig etwas mit dem Programm und bauen 
Sie von Zeit zu Zeit noch weitere Faktoren ein. Sie werden 
sehen: Durch viele Ereignisse, die das Geschehen beeinflus- 
sen können, gewinnt Kaiser immer mehr an Reiz. 

(Dieter Mayer/hi) 


END 


END5; 


END; 


END; 


PROGRAM kaiserz; 


CONST 
produktivitaet 


= 75 


VAR 
anbauflaeche ,gesamtflaeche,landkauf, 
vorrat,flaecheprokopf ‚rattenschaden, 
hektarertrag,ernte ,‚zuteilung, nahrungprokopf , 
geburtenrate,sterberate ‚ausgaben,kornpreis, 
verkauf ‚vermoegen:sreal; 
jahr „jahre: @. .20; 
zaehler ,‚volk,zahl ‚geborene, 
gestorbene ,‚bodenpreissinteger; 
getreide,kaufen,sinnvollıboolean; 
inputschar; 


PROCEDURE initialisierung; 


BEGIN 
zaehler s=135 
kornpreis »=35 
gesamtflaeche :=I@998; 
anbauflaeche :=39888; 
bodenpreis ı=38; 
vermoegen :=20000; 
hektarertrag ı=4;5 
vorrat ı=20000; 
ernte ı=12000; 
volk :=4000; 
flaecheprokopf ı=gesamtflaeche/volk; 
geborene ı=@; 
gestorbene ı=d; 
nahrungprokopf :=28; 
ausgaben ı=vermoegen/B; 
END; 


PROCEDURE berechnungs 
BEGIN 

IF kaufen = true THEN 
BEGIN 
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END; 


gesamt flaeche: »gesamtflaeche+landkauf; 
ver moegen: =vermoegen- (landkauf%*bodenpreis); 


PROCEDURE zustandsausgabe; 
BEGIN 


ELSE 


BEGIN 
gesamtflaeche: =gesamtflaeche-landkauf; 
ver moegen:s =vermoegen+ (landkauf%#bodenpreis); 


bodenpreisı =28+random (5) 35 
IF getreide = true THEN 
BEGIN 
vorrat:=vorrat-verkaufj 
ver moegen: =vermoegen+ (kornpreis#verkauf) 


vorrat:ı=vorrat-(zuteilung#volk); 
ausgaben: =random (6Q080) ; 
vermoegen: =vermoegen-ausgaben; 
kornpreiss=1+random (3); 
hektarertrag: =4+random (3)5 
ernte: =anbauflaeche#hektarertrag; 
vorrat:=vorrat+ternte; 
rattenschaden: =abs (random (58) /1@@); 
vorrat:=abs (vorrat#1-rattenschaden) ; 
flaecheprokopf:=gesamtflaeche/voik; 
geborene: =r andom (98) ; 
gestorbene: =random (25) 35 
volk:=volk+geborene-gestorbene; 


writeln( ’Momentaner Spielstandı ‘’);5 
writeln; 

write(’Wir schreiben das '’); 

IF zaehler>jahre THEN zaehler:=jahre; 
write(zaehler); 

writeln(‘. Jahr Ihrer Herrschaft. ’)3 
writeln; 

write( ‘Ihr Volk besteht zur Zeit 
write(volk); 

writeln(‘ Einwohnern, wobei Sie‘); 

write (geborene); 

write(’ Geburten und °)3 

write (gestorbene); 

writeln(‘ verstorbene Personen haben. ')3 
write( Sie besitzen °); 

write (gesamtflaeche:B:2); 

write(‘ Hektar Land, wovon ')5 
writelanbauflaeche:8:2); 

writeln(‘ Hektar bebaut sind. ")5 


aus °)35 


write(’Jeder Buerger bewohnt durchschnittlich ° 


write(flaecheprokopf:6:12)3; 

writeln(' Hektar Boden. ’)3 
write('’Der Vorrat belaeuft sich auf ’)3 
write(vorrat:18:2)35 

writeln(‘ DZ Getreide. ‘); 

write( ‘Die Staatskasse enthaelt ’); 
write (vermoegen: 18:2); 

writeln(’ Taler. ’); 

write( 'Staatsausgaben dieses Jahr: ’); 
write (ausgaben: 9:2); 

writeln(’ Taler. ’);3 

write(’Heutiger Bodenpreis: ‘); 
write(bodenpreis); 

writeln(’ Taler je Hektar. ’); 

write( ’Jahresertrag: ’)5 
write(hektarertrag:8B:2)3;3 

writeln(‘ DZ Getreide je Hektar. ')3 
write( ’Kornpreis [) u] 
write(kornpreis:5:2)3;3 

writeln(‘ Taler je DZ. ')3;3 

write( ’Gesamternte ı ')35 

write (ernte:8:2); 

writeln(‘ DZ Getreide. ’); 

write ‘Durch Ratten wurden ’); 
write (rattenschaden: 5:2); 

writeln(’ % der Ernte vernichtet. ‘)3 
zaehler:=zaehler+1j; 


PROCEDURE eingabe; 
BEGIN 


writelns 

write( ’Moechten Sie Land kaufen ‘); 

write(’oder verkaufen (K/V) ? ')35 

read(input); 

writeln; 

IF input ='k’ THEN kaufen: =true 
ELSE kaufen: =false; 

write( ‘Wieviel Hektar ? °); 

read (landkauf); 

writeln; 

write(’Gedenken Sie, Getreide 

write('’zu exportieren (J/N) ? 

read (input); 

writeln; 

IF input ="j' THEN 

BEGIN 


73 
735 


getreide:=true; 
write( Wieviel DZ ? '); 
read (verkauf); 
writeln; 
END 
ELSE getreide:=false; 
write(’Wieviele DZ Getreide goennen ’); 
write(’Sie jedem Untertan ? ’);5 
read (zuteilung); 
writeln; 
write( ‘Wieviele Hektar duerfen ’); 
write(’die Bauern bewirtschaften ? ’); 
read(anbauflaeche); 
writeln; 
END; 


PROCEDURE eingabepruefung; 
BEGIN 
writeln; 
IF kaufen = true THEN 
IF (landkauf#bodenpreis) >= vermoegen THEN 
BEGIN 
write(’Landkauf erlaubt Ihre ’); 
writeln( "Staatskasse nicht. ’); 
sinnvoll:=false; 
END; 
IF kaufen = false THEN 
IF gesamtflaeche-landkauf <@ THEN 
BEGIN 
writeln('Soviel Land besitzen Sie nicht. ‘); 
sinnvoll:=falsez 
END; 
IF zuteilung <=B THEN 
BEGIN 
write Leuteschinder — Sollen ’); 
writelnt ‘die Buerger verhungern ?'’); 
sinnvolls=false; 
END; 
IF zuteilung >= (vorrat/volk) THEN 
BEGIN 
writeln('So gross sind Ihre Vorraete nicht. 
sinnvall:ı=false; 
END; 


Dieses Programm nimmt Ihnen die überaus lästige 
Arbeit ab, alle Zahlen herauszufinden, durch die 
eine andere teilbar ist. 


icher hatten Sie schon gelegentlich mal das Problem, 
daß Sie alle Teiler einer Zahl herausfinden wollten. Sei 
es für die Verwendung im Bruchrechnen oder zur 
Ermittlung von Primzahlen. Diese Arbeit nimmt Ihnen nun die 
Prozedur »Teiler« (Listing) ab. 

Nach der Compilation werden Sie gefragt, aus welcher Zahl 
alle Teiler berechnet werden sollen. Bitte geben Sie hier nur 
ganze Zahlen ein. Das Programm gibt Ihnen nun alle Teiler die- 
ser Zahl aus. Wird kein Teiler gefunden, so ist es eine Prim- 
zahl, was auch ein Antwortsatz bekannt gibt. 


Zum Programm 


Nach der Eingabe der Zahl, aus der die Teiler berechnet 
werden sollen, wird zuerst ein Flag (Schalter) auf »unwahr« 
gesetzt. Danach versucht das Programm, die eingegebene 
Zahl so oft wie möglich zu dividieren. Sind Teiler vorhanden, 
werden diese ausgegeben und das Flag auf »wahr« gesetzt. 
Am Ende der Prozedur wird noch einmal der Zustand des 
Flags abgefragt. Ist es »unwahr«, so konnte kein Teiler gefun- 
den werden, und die Meldung »Diese Zahl ist eine Primzahl« 
erscheint auf dem Bildschirm. 


IF anbauflaeche <=B THEN 
BEGIN 
write( ‘Spassvogel - wo wollen ‘); 
writeln('’Sie denn anbauen ?');3 
sinnvoll:=false; 
END; 
IF anbauflaeche >8.5%#*(gesamtflaeche+landkauf) THEN 
BEGIN 
write( ‘Nur die Haelfte des Landes ’); 
writeln('kann bebaut werden. '); 
sinnvoll:=false; - 
END; 
IF anbauflaeche>produktivitaet#*volk THEN 
BEGIN 
write(‘Soviel koennen Ihre Leute ’); 
writeln('nicht bebauen. ’); 
sinnvoll:=false; 
END; 
END; 
BEGIN 
initialisierung; 
writeln( ‘Wieviele Jahre moechten Sie regieren ?'°); 
readin(jahre); 
zahl :=random (99) +15 
FOR jahr:=1 TO jahre DO 
BEGIN 
zustandsausgabe; 
REPEAT 
BEGIN 
sinnvoll:=true; 
eingabe; 
eingabepruefung;z 
END; 
UNTIL sinnvoll; 
berechnung; 
END; 
zustandsausgabe; 
END. 


Listing »Kaiser«: Bestimmen Sie über das Wohl und Wehe 
Ihres Volkes 


Berechnen 
gemeinsamer Teiler 


Die Prozedur eignet sich gut zum Einbinden in mathemati- 
sche Programme, also etwa in ein Mathe-Lexikon auf dem 
Computer. (Dieter Mayer/hi) 


FROGRAM Teiler (Input „Dutput); 
VAR Zahl ‚Teiler: Integer; 
Schalter:boolean; 

BEGIN 
write ("Bitte geben Sie die Zahl ein, 
aus der die Teiler berechnet ’); 
writeln ('werden sollen !’); 
read (Zahl); 

Schalter:=FALSE; 
WHILE Zahl>O DO 
BEGIN 
FOR Teiler:=2 TO TRUNC (Zahl/2) DO 
BEGIN 
IF Zahl MOD (Teiler)=0 
THEN BEGIN write (Teiler:5); 
Schalter:=TRUE 
END; 
END; 
IF Schalter=FALSE 
THEN write (’ Diese Zahl 
ist eine Primzahl ’); 
writeln; writeln; 
read (Zahl); 
Schalter:=FALSE; 
END; 


END. Listing »Teiler« 


MAMPPYM 
:OMPUTER 


Filer 
Fine 
Turbo- 
Prosscal 


Werden lauffähige Turbo- 
Pascal-Programme erzeugt, 
so verbraucht die in jedem 
xxx.com-File vorhandene 
Run-Time-Library 8 KByte. 


ollen mehrere kurze Programme auf einer Diskette 

gespeichert werden, stößt man schnell an die Grenze 

der verfügbaren Speicher-Kapazität. Der Turbo-Pas- 
cal-Compiler bietet mit der H-Option die Möglichkeit, Pro- 
gramme ohne die Run-Time-Library zu compilieren und sie 
dann als sogenannte Chain-Files aufzurufen. Von dieser 
Möglichkeit, Platz zu sparen, macht das vorliegende Pro- 
gramm Gebrauch. 

Die Benutzer-Programme werden speicherplatzsparend 
als xxx.chn-Files direkt auf die Filer-Diskette compiliert, ins 
Inhaltsverzeichnis (Inhalt.fil) eingelesen und dann von Filer 
aus aufgerufen. Um wieder zu Filer zurückkehren zu können, 
sollten die Benutzer-Programme mit der Prozedur »Ende« 
(siehe Listing) abgeschlossen werden. 

Die Auswahl der einzelnen Funktionen von Filer erfolgt mit 
den Cursor-Tasten »Pfeilnach oben«, »..nach unten«, »..rechts 
und links«. Die jeweilige Funktion beziehungsweise die 
Benutzer-Programme werden invers als Leuchtfeld darge- 
stellt. Durch Drücken der Home-Taste wird die angezeigte 
Funktion (Benutzer-Programm) ausgeführt. 


program filer; 


(X Written by M.A. Schlösser %) 
Rheinstr. 26 % 
6188 Darmstadt % 
Tel: 06151 - 2 25 38 % 
(% Stand vom 25. Juni 1985 % 


RERERIERRORRRREEEERRIITRREREROCRRRRIRRIRORIRERRRIOKN) 
(% Turbo-Pascal Programme können speicherplatz-sparend %) 
(X mit der H-Option des Compilers compiliert und von %) 
(% diesem Programm aus aufgerufen werden, % 
RRRRERERRRRRRERRRCRERRRERRRRRERERERERRRBRRRRRCBRRISOCK 


type inhaltrec = record 
Progname: string (.12.); 
end; 


var  dateibuffer: inhaltrec; 
datei : file of inhaltrec; 
type 
defString = array (.1..32.) of string (,12.)5 
defset = set of char; 
anystring = string (88.5; 
const 


bel] = *6: (% Glocke % 


»Programm« führt die Benutzer-Programme aus, »Neuauf- 
nahme« liest ein auf der Diskette vorliegendes xxx.chn- 
Programm in das Inhaltsverzeichnis ein, »Löschen, Umbe- 
nennen und CP/M« erklären sich von allein und bedürfen 
somit keiner weiteren Erläuterung. 


Ob groß, ob klein... 


Alle vom Programm geforderten Eingaben können beliebig 
als Klein- oder Großbuchstaben erfolgen. Durch Drücken der 
ESC-Taste können alle laufenden Routinen abgebrochen 
werden. 

Das Quellprogramm besteht aus filer.pas und lib.inc. In 
lib.inc können Anpassungen an verschiedene Terminals vor- 
genommen werden. Die Erläuterungen sind in das 
Programm-Listing eingefügt. Das lauffähige Programm 
besteht aus filer.com. Das File inhalt.fil wird beim ersten 
Programm-Lauf automatisch erzeugt. 


(M.Schlösser/ev) 


var 

lines, inharray ı defstring; 
arraynr, arraylaenge,i : integer; 
filename,helpstring  anystring; 
pruef,file_exist boolean; 
filevar : files 

zch : char; 


&$I filer.lib © 


procedure initinhalt (var z : defstring; 
var anz_rec: integer); 
(% liest Inhaltsverz. von der Diskette und % 
(k erzeugt inharray %) 
begin 
anz.rec!= d; 
pruef:= exist (’arinhalt,fil’; 
assign (datei,’asinhalt.fil‘); 
if pruef then 
begin 
reset(datei); 
while not eof (datei) do 
begin 
read (datei ,‚dateibuffer) ; 
anz_rec:= anz.recti; 
z(.anz_rec,):= dateibuffer „progname; 
end; (X while %) 


Listing. »filer.pas« 
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JETZT AUF SCHNEIDER-COMPUTERN: 


Die Programm-Bibliothek für Turbo Pascal 


über 100 Prozeduren und Funktionen in 
Turbo Pascal Source Code: 
Bitmanipulation, Sortierverfahren, Spline- 
funktionen, Fouriertransformation, 
Regressionsanalyse und vieles mehr. 


3” Schneider-Format 


TURBO-Lader-Grundpaket 


Das TURBO-Lader-Grundmodul ist eine 
umfangreiche Programm-Bibliothek für den 
TURBO-Pascal-Programmierer. Sie umfaßt 
zahlreiche ausführlich dokumentierte Proze- 
duren und Funktionen, die der Profi zur 
schnellen Lösung seiner Programmierauf- 
gaben verwenden kann und dem Einsteiger 
das Erlernen der Pascal-Programmierung 
erleichtern. Das Grundpaket TURBO-Lader 
bietet ein breitgefächertes Spektrum von 
Routinen, beginnend bei Bitmanipulation 
über optimierte Sortierverfahren bis hin zur 
Anwendung von Splinefunktionen, Fourier- 
transformation und Regressionsanalyse. Des 
weiteren Disketten-Routinen zum Lesen 
eines Inhaltsverzeichnisses oder zum Lesen 
und Schreiben einzelner Sektoren, Routinen 
zur Datenüberprüfung, ein Spooler mit Steu- 
erroutinen, erweiterte Stringverarbeitung 
und vieles mehr. Alle Routinen werden im 
kommentierten Quellcode für den TURBO- 
Pascal-Compiler ausgeliefert. 

Das TURBO-Lader-Grundpaket erfordert 
den TURBO-Pascal-Compiler. Es ist liefer- 
bar auf3”-und5 1/4 ”-Disketten und lauffä- 
hig auf dem Schneider CPC 464, CPC 664, 
CPC 6128 und Joyce. 

3”-Disk. Best.-Nr. MS 413 

514 ”-Disk. Best.-Nr. MS 415 


DM 138,-/sFr. 125,-/öS 1380,+ 


*inkl. MwSt., unverbindliche Preisempfehlung. 


Markt&fechnik 


Schneider CPC 
Software 


Die Programm-Bibliothek für Turbo Pascal 


Ein komfortabler Bildschirm-Masken- 
generator und eine professionelle Datei- 
verwaltung in Turbo Pascal Source Code. 


3” Schneider-Format 


TURBO-Lader Business 


TURBO-Lader Business umfaßt einen kom- 
fortablen Bildschirm-Maskengenerator und 
eine professionelle Dateiverwaltung. Der 
Maskengenerator gibt dem Pascal-Program- 
mierer ein Werkzeug zur einfachen Bearbei- 
tung vonBildschirm-Masken in die Hand. Eine 
Maske kann beliebig viele Textfelder, bis zu 
128 Eingabe- und 128 Ausgabefelder enthal- 
ten. Eingabefelder können auf komfortable 
Art editiert und auf Gültigkeit überprüft wer- 
den. Das Dateiverwaltungsmodul unterstützt 
die Programmierung von Datenbankanwen- 
dungen und Stammdatenverwaltungen. Es 
besteht aus einer komfortablen Datensatz- 
und Indexverwaltung mit mehreren Schlüs- 
seln und Index-Dateien, die einen sekunden- 
schnellen Zugriff auf beliebige Daten ermög- 
licht. Mit diesen beiden Modulen stehen dem 
Anwendungsprogrammierer zwei professio- 
nelle Werkzeuge zur zeit- und kostensparen- 
den Erstellung kommerzieller Anwendungen 
zur Verfügung. Alle Routinen werden im kom- 
mentierten Quellcode für den TURBO-Pas- 
cal-Compiler ausgeliefert. 

TURBO-Lader Business erfordert den 
TURBO-Pascal-Compiler und das TURBO- 
Lader-Grundpaket. Es ist lieferbar auf 3”- 
und 1/4 *-Disketten und lauffähig auf dem 
Schneider CPC 464, CPC 664, CPC 6128 
und Joyce. 

3”-Disk. _ Best.-Nr. MS 423 

51/4”-Disk. Best.-Nr. MS 425 


DM 148,-IsFr. 132,-/öS 1480,* 


Die Programm-Bibliothek für Turbo Pascal 
Technisch-wissenschaftliche Funktionen 
Methoden 


wissenschaften in Turbo Pascal Source 
3” Schneider-Format 


TURBO-Lader Science 


TURBO-Lader Science ist eine Sammlung 
technisch/wissenschaftlicher Funktionen 
und professioneller statistischer Verfahren 
fürdie Bereiche Medizin, Betriebs- und Volks- 
wirtschaft, Technik und Naturwissenschaf- 
ten. Das Modul enthält alle arithmetischen 
Operationen zur Verarbeitung komplexer 
Variablen inklusive der Umrechnung der Dar- 
stellung und die wichtigsten komplexen 
Funktionen wie Potenz, Wurzel, trigonometri- 
sche, transzendente und exponentielle Funk- 
tionen. Darüber hinaus ist ein vollständiges 
Paket zur Verarbeitung komplexer Matrizen 
und Vektoren enthalten. Der Statistikteil ist 
ein praktisches und direkt verwendbares 
Werkzeug zur computerunterstützten, effek- 
tiven Datenanalyse. Er umfaßt eine Vielzahl 
statistischer Funktionen mit den Schwer- 
punkten Regression und Korrelation, des- 
kriptive Statistik, Faktoranalyse und Testver- 
fahren. Alle Routinen werden im kommentier- 
ten Quellcode für den TURBO-Pascal- 
Compiler ausgeliefert. 

TURBO-Lader Science erfordert den 
TURBO-Pascal-Compiler und das TURBO- 
Lader-Grundpaket. Es ist lieferbar auf 3”- 
und5 1/4 "-Disketten undlauffähig auf dem 
Schneider CPC 464, CPC 664, CPC 6128 
und Joyce. 


3”-Disk. Best.-Nr. MS 433 
5',4”-Disk. Best.-Nr. MS 435 


DM 189,-IsFr. 169,-1öS 1890,* 


Übrigens können Sie auch alle TURBO-Pascal-Produkte für Schneider CPC 464/664/6128 und Joyce bei Markt & Technik beziehen: 


- TURBO Pascal 3.0, Best.-Nr. MS 514 (CPC), Best.-Nr. MS 515 (Joyce) DM 225,72* - TURBO Tutor (englisch), Best-Nr. MS 544 (CPC), Best.-Nr. MS 545 (Joyce) DM 104,86* 
- TURBO Pascal 3.0 mit Grafikunterstützung, Best.-Nr. MS 524 (CPC) DM 285,-* - TURBO Graphix Toolbox, Best.-Nr. MS 564 (CPC) DM 225,72* 


- TURBO Tutor (deutsch), Best.-Nr. MS 534 (CPC), Best.-Nr. MS 535 (Joyce) DM 104,86* 


- TURBO Toolbox, Best.-Nr. MS 554 (CPC), Best.-Nr. MS 555 (Joyce), DM 225,72* 


TURBO-Pascal® ist ein Warenzeichen der Borland Inc., USA. TURBO-Lader, TURBO-Lader Business und TURBO-Lader Science sind Warenzeichen der Fa. Lauer & Wallnitz. 


Diese Markt &Technik-Softwareprodukte erhalten 


Sie in den Fachabteilungen der Kaufhäuser 
und in Computershops. 


Wenn Sie direkt beim Markt& Technik Verlag 
bestellen wollen: 


Nur gegen Vorauskasse, Verrechnungsscheck 


oder mit der eingedruckten Zahlkarte. 


Markt&zechnik 


Unternehmensbereich Buchverlag 
Hans-Pinsel-Straße 2, 8013 Haar bei München 


Bestellungen im Ausland bitte an 
untenstehende Adressen: 


Schweiz: Markt& Technik Vertriebs AG, 


Kollerstr. 3, CH-6300 Zug, Tel. 042/41 5656 


Österreich: Ueberreuter Media Handels- 
und Verlagsges. mbH, Alser Str. 24, 
A-1091 Wien, Tel. 0222/481538-0 


if anz_rec=® then 
begin 
\owvideo; 


gotoxy(1,12) write (“Neuaufnahme aufrufen ’); normvideo; 
end; (% if anz-rec % 
end (X it pruef % 

else begin 
rewrite(datei); 
lowvideo; 
gotoxy(1,12) ;write (‘Neuaufnahme aufrufen °); normvideo; 
end; (% else %) 

close (datei); 

end; (% procedure initinhalt %) 


procedure head_string (var zidefstring) ; 
(% Dient zur Zuordnung der Daten für den %) 
(X auszudruckenden array » 


begin 

z(.1):= ‘Program’; z(.2.):= “Neuaufnahme”; z(.3.) :=’Löschen’; 
z(.4.):= “Imbenennen‘; z(.5.):= ’CP/M'; 

end; (% procedure head_string X) 


procedure programm_veberschritt; 

begin 

gotoxy(1,16) sclreol; 

write (PROGRAMME (vorh:  „arraylaenge,‘ 
end; 


max: 32 3°); 


procedure msg(zeile:integer) ; 

begin 

gotoxy(i,zeile); 

writeln (“Leuchtfeld mit Cursor-Tasten auf gewünschtes Programm stellen‘); 
writeln (“und die HOME-Taste drücken.‘ ; 

end; 


procedure init_array; 
(% Schreibt inharray auf Diskette %) 


begin 
assign (datei,’inhalt.fil‘); 
rewrite (datei); 
for i:= 1 to arraylaenge do 
begin 
dateibuffer.prognane := inharrayl.i.); 
write(datei ‚dateibuffer) ; 
end; (X for i X 
close (datei); 
end; (% procedure init_array &) 


EEESEERR ESTER LLERRSERFTERLEEESET LEER TERN) 


& Hauptprogramm Filer % 
RRERRRRCRRROBRRRRERERERCHRRIRRRRRRRRRRRRCCE) 

begin 

ceirser; 

writeln(’ Filer für Turbo-Pascal Programme unter CP/M’); 
writeln(’ written by M.A.Schlösser Juni 1985’); 
writeln; 


tor is= I to 79 do write (’-"); 
initinhalt (inharray,arraylaenge) ; 
head_string (lines); (X liest Funktion-Auswahl in das array lines x) 
schreib_array (lines, 5, 1,5, 15, 4 13 
(X array/ anz/ x-y pos/ abstand/ worte/zeile %) 
gotoxy(1,23 for is= 1 to 79 do write (’-); 
programm_ueberschrift; 
schreib_array (inharray,arraylaenge,1,17,15,9) 5 
(% schreibt Benutzer-Prog. % 


repeat (% until true = false %) 

msg(9) ; 

arraynr:= select (lines, 5, 1,5, 15, E) 33 
(% array/ anz/ x-y pos/ abstand/ worte/zeile % 


cIrIn(9, 125 
case arraynr of 
1: begin (% Programm % 
gotoxy(1,9) ;lowvideo; 
writeln (’Programm-Auswahl ‘) znormvideo; 
msg( 10) ; 
arraynr:= select (inharray,arraylaenge,1,17,15,4); 
it arraynr {) 0 then 
begin 
assign(filevar,inharray(..arraynr .)t’.chn‘) ; 
chain (filevar); 
end (X if arraynr %) 
else cIrIn(9, 1); 
end; (X case of 1% 
begin (% Neuaufnahme %) 
ootoxy(1,9) ;Lowideozwriteln(‘Neuaufnahme’) ;normvideo; 
write (‘Das ins Inhaltsverzeichnis aufzunehmende File muß *); 
writeln (’unter xxx.chn auf der‘); 
writeln (“Diskette vorliegen. Die Namen-Eingabe ohne File-Kennung! ‘); 
line_editor (’Progranm-Namen eingeben’,1,13,: 8, filename, 
ET 
(% Text-Ausgabe/ x-y pos/ Länge/ variable/ gültige Zeichen %) 
if filename (d ‘’ then 
begin 
Umw_in_Grossbuchstaben (filename) ; 
helpstring:= filenamet‘ .chn‘ ; 
pruef:= exist (helpstring) ; 
if pruef then 
begin 
arraylaenge:=arraylaenget1; 
inharray( ‚arraylaenge.) :=tilename; 
programm_ueberschrift; 
schreib.array (inharray,arraylaenge, 1,17,15,9 ; 
init_array; 
end 
else begin 
write (bell); 
gotoxy(1,13 zclreol; 
write (’Das File --) “,helpstring,’ 
(-- ist nicht auf Diskette’); 
write (’ vorhanden, Taste drücken.‘); 
repeat until keypressed; 
end; (% else X) 
end; (% if filenme D ’’% 
ceIrIn (9,19; 
end; (X case of 2% 


3: begin (% Löschen %) 
gotoxy(1,9 ;lowvideo; write (’Löschen‘) ; normvideo; 
msg( 10) ; 
arraynrı= select (inharray,arraylaenge,1,17,15,9 ; 
if arraynr(d® then 
begin 
eirIn(19,1D; 
gotoxy(1,1@ ;write (“File --)’ ‚inharray(.arraynr ), 
“(== löschen (j/n) "5 


rn. 
.. 


repeat 
read (kbd,zch) ; 
until upcase(zch) IN (.‘J’,’N’.)5 
if upcase(zch) = ‘J‘ then 
» begin 
assign (filevar ‚inharray(arraynr .)+’.chn‘); 
erase (filevar); 
for is= arraynr to arraylaenge do 
inharray(.i.)s= inharray (.itl.)} 
arraylaenge:= arraylaenge-1; 
init_array; 
cirIn(17,29 3; 
schreib_array (inharray,arraylaenge,1,17,15,9 ; 
end; (X if zch= J% 
end; (X if arrayır (0% 
eirIn(9, 11); i 
programm_ueberschrift; 
end; (% case löschen %) 


4: begin (X Umbenennen %) 


Listing. »filer.pas« 
(Fortsetzung) 
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Listing. Verschiedene 
Sortieralgorithmen in C 
realisiert (Schluß) 


u 
4 


/* Ende der Funktion %#*/ 


static unsigned rearr (ib, ub) 


„msigned 1b, ubs 


{ 


whilelub > Ib %% (* comp) (ub, 1b) 
ub-} 
if(cub != 1b) £ 
(*_ swap) (ub, 1b)4 
while(llb © ub %% (* comp) (lb, ub) 
lb+tt3 
ifclb != ub) 
it swap) (lb, ub)a 
» whileilb != ub)a 


return 1ba 


Ende der Funktion */ 


KEREEEERRER Ende Quick-Sort KERKERERE 


Als Indizes wurden vorzeichenlose Variable (unsigned) zur 
Definition der Unter- und Übergrenze des abzusuchender Bereiches 
verwendet. Variable dieses Typs erweitern den Zahlenbereich, 

der innerhalb der Funktion angewendet werden darf. 


Manche Froxzessoren begreifen Arithmetik nur ohne Vorzeichen. 
Werden hier nun normale Integers (int) benutzt, wird bei der Code- 
Erzeugung automatisch ein Vorzeichen gesetzt, 

In & kann der weit groessere Teil von Schleifenkontrollvariablen 
vorzeichenlos definiert werden. 
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Rückkehr einer 
alten Dame: 


ie Originalversion von Eliza pro- 

grammierte Joseph Weizen- 

baum am MIT (Massachusetts 
Institute of Technology in Boston, USA) 
ursprüglich'in Lisp. Schon bald folgten 
Übersetzungen in Basic und Veröffent- 
lichungen in verschiedenen Computer- 
zeitschriften. Obwohl im Laufe der Zeit 
einige Vereinfachungen vorgenommen 
wurden, ist das Resultat doch noch 
interessant. Der Vorteil dieser Version 
ist, daß die Texte und Schlüsselwörter, 
mit deren Hilfe Eliza antwortet, nicht 
Bestandteil des Programms, sondern in 
einer eigenen Datei erfaßt sind. So kön- 
nen Sie ohne Neucompilierung Ände- 
rungen vornehmen und deren Auswir- 
kungen studieren. Denkbar wäre so 
sogar eine Eliza-Version, die Deutsch 
spricht: Wenn Sie das Programm nur 
durch die Angabe des Namens »Eliza« 
starten, arbeitet es automatisch mit den 
Texten in der Datei Eliza.DAT. Wenn Sie 
aber beim Aufruf noch einen Dateina- 
men »Eliza <Texte>. DAT« angeben, 
werden die Texte aus dieser Datei 
genommen. Das Programm beenden 
Sie durch die Eingabe von »bye«. 

Das Programm sucht zunächst in der 
Eingabe des Benutzers nach Schlüs- 
selwörtern, die es kennt. Die Schlüssel- 
wörter gleicher Bedeutung sind dabei in 
Gruppen zusammengefaßt, und zu 
jeder Gruppe gibt es eine Gruppe mit 
zum Schlüsselwort passenden Stan- 
dard-Antwortsätzen. Wenn Eliza ein 
Schlüsselwort aus einer Gruppe findet, 
nimmt sie aus der korrespondierenden 
Gruppe einen beliebigen Standardant- 
wortsatz. Je häufiger ein solches Wort 
typischerweise auftritt, desto länger 
sollte die Antwortliste sein - so wird oft- 
maliges Auftreten immer derselben 
Antwort vermieden. 

. Sobald ein Standardantwortsatz 
gefunden wurde, erfolgt eine weitere 
Umformung. Enthält er ein Sternchen 
»*«, so wird an dieser Stelle ein Neben- 
satz eingefügt. In der Standard- 
Eliza.DAT treten Sternchen nur am 
Ende eines Satzes auf. Sie dürfen sie 
aber auch in der Satzmitte verwenden. 


Der Nebensatz entsteht aus der Ein- 
gabe des Benutzers. Der Eingabeteil, 
der dem Schlüsselwort folgt, ist 
Ausgangspunkt. Bevor er in die Antwort 
eingesetzt wird, wird er aber noch kon- 
jugiert: also Wörter wie »my« durch 
»your« ersetzt und umgekehrt. 


»Eliza« gehört zu den Klassikern 
unter den Computerspielen: Der 
Computer schlüpft in die Rolle 
eines Psychoanalytikers. Damit 
es nicht in Vergessenheit gerät, 
finden Sie hier eine Version in 
der hochaktuellen Sprache C. 


Der so entstandene modifizierte 
Antwortsatz erscheint dann endgültig 
auf dem Bildschirm. 

Leerzeilen in der Datei werden bei der 
Auswertung übergangen. Ein Schräg- 
strich »/« gilt bei der Auswertung ganz 
genau wie ein echtes Zeilenende als 
»logisches Zeilenende«. Die Datei 
Eliza.DAT ist in mehrere Gruppen unter- 
teilt, die jeweils Zeilen mit dem Inhalt »$« 
voneinander trennen. 

Die erste Gruppe enthält das Titelbild, 
das der Computer beim Start ausgibt. 
Die zweite Gruppe - die nur aus einer 
einzigen Zeile bestehen darf - präsen- 
tiert die Begrüßung, mit der das Pro- 
gramm erstmals eine Eingabe vom 
Benutzer anfordert. 

Die dritte Gruppe beinhaltet paar- 
weise Schlüsselwörter für die Konjuga- 
tion eines Nebensatzes, die sich 
gegenseitig ersetzen. »i« muß in »you« 
und »you« in »i« umgesetzt werden. 
Deshalb bilden »i« und »you« ein Paar. 
Ab der vierten Gruppe bis zum Datei- 
ende stehen paarweise jeweils eine 
Schlüsselwortgruppe und die dazu pas- 
sende Antwortgruppe. 

Beachten Sie, daß die Einhaltung die- 
ser Regeln nicht überprüft wird. Wenn 
die Datei nicht richtig aufgebaut ist, 
»verhaspelt« sich Eliza und gibt nur 
noch Unsinn aus. Im schlimmsten (aller- 
dings seltenen) Fall übersieht die Sor- 
tierfunktion sogar die Dateiendmarkie- 
rung, so daß das Programm abstürzt. 
Alle Schlüsselwörter und Konjugatio- 
nen müssen klein geschrieben werden 
- sonst erkennt sie das Programm nie- 
mals. 


Probleme bei 
der Antwort 


Die Ergebnisse, die Eliza liefert, hän- 
gen stark von der Reihenfolge des 
Dateiaufbaus ab. Schlüsselwörter am 
Anfang der Tabelle haben Vorrang, 
unabhängig von der Stellung der gefun- 
denen Wörter im Text. In der Regelistes 


sinnvoll, Schlüsselwörter, die zu konju- 
gierten Antworten führen, zuerst zu 
nennen, weil das die interessanteren 
Antworten ergibt. Sie können aber auch 
mit anderen Reihenfolgen experimen- 
tieren. 

Es muß sichergestellt sein, daß in 
jeder Eingabe ein passendes Schlüs- 
selwort gefunden wird. Jede Eingabe 
(bei Eliza auch in einer leeren!) enthält 
nur ein Leerzeichen. Das letzte Schlüs- 
selwort der Tabelle ist deshalb ein ein- 
zelnes Leerzeichen (nicht verwechseln 
mit einer Leerzeile!). 

Im Schlüsselwort »think« der Stan- 
darddatei Eliza.DAT ist die Buchstaben- 
folge »hi« enthalten. »hi« fungiert aber 
gleichzeitig als eigenes Schlüsselwort 
mit höherer Priorität - als Abkürzung 
von »hello«. Ohne weitere Vorkehrun- 
gen wäre so das Schlüsselwort »think« 
unauffindbar. Bestandteil des Schlüs- 
selwortes »hi« ist deshalb ein Leerzei- 
chen, um einen Fehlgriff auszuschlie- 
Ben. Ähnliche Probleme treten auch bei 
anderen Wörtern auf. Leerzeichen in 
der Datei haben also immer eine wich- 
tige Bedeutung - Sie sollten ganz 
besonders darauf achten. Wenn ein 
Schlüsselwort nicht in der ersten Spalte 
beginnt, ist das ein Indiz dafür, daß ein 
wichtiges Leerzeichen voransteht. 
Leerzeichen am Ende einer Zeile wer- 
den durch Anhängen eines Schrägstri- 
ches »/« am Ende der Zeile sichtbar 
gemacht. Da der Schrägstrich ein logi- 
sches Zeilenende bedeutet, Leerzei- 
chen aber beim Einlesen nicht beachtet 
werden, schadet das bei der Interpreta- 
tion der Datei durch Eliza nichts. 

Bei umfangreicheren Dateikonstruk- 
ten können bestimmte Präpositionen in 
mehreren Paaren der Konjugations- 
tabelle auftreten. Wenn eine mehrfache 
Präposition bei der Analyse eines Paa- 
res in den Nebensatz eingefügt wurde, 
würde sie bei der Analyse des anderen 
Paares fälschlicherweise wieder ent- 
fernt und durch eine dritte ersetzt. 
Konjugations-Schlüsselwörter, die in 
dieser Weise eingesetzt werden, dür- 
fen Sie deshalb in der Datei mit einem 
zusätzlichen Unterstreichungszeichen 
»_« versehen. Das verhindert ein 
erneutes Finden. Vor dem Einfügen des 
Nebensatzes in den gesamten Antwort- 
satz werden alle Unterstreichungszei- 
chen automatisch entfernt. 

Scheuen Sie sich nicht, die Datei 
Eliza.DAT nach eigenem Gutdünken zu 
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verändern (natürlich sollten Sie eine 
Sicherheitskopie aufbewahren!). Inter- 
essant ist, außer einer allgemeinen 
Erweiterung, etwa die Übersetzung der 
Texte ins Deutsche, mit Anpassung der 
Konjugationen oder ein ganz anderes 
Gesprächsthema. Vielleicht können Sie 
die Antworten auch so geschickt wäh- 
len, daß der Benutzer beeinflußt wird, 
über ein Thema zu sprechen, zu dem 
Eliza besonders viele Schlüsselwörter 
weiß? 

Die vorliegende Version wurde unter 
CP/M-80 mit einem BDS C-Compiler 
compiliert und getestet. Mit geringen 
Änderungen läuft Eliza aber auch unter 
anderen Betriebssystemen und mit 
anderen Compilern. Da möglichst einfa- 
che Standardfunktionen verwendet 
werden, ist diese Eliza-Version auch mit 
den kleinsten Compilern zu verarbei- 
ten. 


Eliza paßt sich an 


Anpassen müssen Sie die Aufrufe der 
Funktionen »fopen« und »getc« (zum 
Einlesen der Datei). Beim BDS C- 
Compiler erwartet die Funktion »fopen« 
beim Aufruf die Adresse des Dateina- 
mens und die Adresse eines genügend 
großen Pufferspeichers. Die Funktion 
»getc« erwartet nur die Adresse des 
Pufferspeichers der gewünschten 
Datei. Die meisten Compiler verarbei- 
ten aber andere Strukturen. Wenn Sie 
noch unerfahren sind, sollten Sie sich 
dazu ein einfaches Programm aus Ihrer 
»C-Bibliothek« ansehen, und die darin 
enthaltenen Dateioperationen im 
Eliza.C-Programm nachbauen. In der 
Regel lauten die neuen Versionen dann 
so: 
2..if(fd = ”r”)) 
NULL) [...« 
zum Dateieröffnen und 
»..getc(fd)...« oder ... »fgetc(fl)...« 
zum Lesen eines Zeichens aus der 
Datei. Natürlich müssen Sie dann dekla- 
rieren »int * fd« und können die Deklarie- 
rung von »puffer[’BUFFSIZ]« weglas- 
sen. 

Sie ersparen sich graue Haare, wenn 
Sie Experimente zur Diskettenverwal- 
tung immer auf einer leeren Diskette 
durchführen (mit Sicherheitskopie des 
bearbeiteten Programms auf einer 
anderen Diskette). 

»CPMEOF« ist der Wert, der das 
Erreichen des Dateiendes signalisiert 
und heißt bei manchen Compilern ein- 
fach »EOF«, die Konstante »ERROR« 
manchmal kurz »ERR«. Wenn andere 
verwendete Konstanten in Ihrem 
»stdio.h« nicht definiert sind, können Sie 
sie auf einen beliebigen, Ihnen sinnvoll 
erscheinenden Wert festlegen. 

Die Funktion »getns« unterscheidet 


fopen(name, 


sich von der Standard-Bibliotheksfunk- 
tion »gets« nur dadurch, daß beim Einle- 
sen von der Tastatur die maximal 
erlaubte Zeilenlänge vorgegeben wer- 
den kann. Sie funktioniert allerdings nur 
unter CP/M-80. Wenn Sie keinen 
CP/M-Rechner haben, dürfen Sie den 
Aufruf »getns(eingabe, 77)« ohne 
Schaden einfach durch »getslein- 
gabe)« ersetzen. Dann müssen Sie 
eben auf den Komfort der automati- 
schen Begrenzung der Zeilenlänge ver- 
zichten. Die Standard-Bibliotheks- 
funktion »bdos()« heißt manchmal auch 
»__bdos()« oder »Ubdos()« und ruft - 
ohne Einflußnahme des C-Systems - 
Betriebssystemfunktionen direkt auf. 
Wenn der Compiler keine »Zeiger auf 
Zeiger« erlaubt, können die Variablen- 
deklarationen »char * *name«durch »int 
*name« ersetzt werden. Die Bedeu- 
tung und Struktur der Variable ändert 
sich dadurch nicht. In der Funktion 
selbst können doppelte Sternchen 
trotzdem weiterverwendet werden. Die 
Anwendungen dieser Variablen brau- 
chen deshalb nicht geändert werden. 
Dasselbe gilt für Zeigerarrays; »char 
*name[]« kann ohne Schaden ebenfalls 
durch »int *name« ersetzt werden. 
Manche Compiler hängen an jeden 
puts-Befehl automatisch einen Zeilen- 
vorschub an. Sie merken das sofort an 
den vielen Leerzeilen auf dem Bild- 
schirm. In diesem Fall streichen Sie im 
Quelltext einfach die Zeilen mit »\n«. 
Die Konstanten DATEILLAENGE, 
MAXZEILEN und MAXKEYS bestim- 


beim Aufruf mit 
Aufruf mit °‘ELIZA <dateiname>‘ 
verwendet werden. 
wird aber nicht ueberprueft ! 


“ELIZA° wird automatisch ‘ELIZA.DAT’ geladen. 


men, wieviele Bytes im Speicher für die 
Datei Eliza.DAT reserviert werden. 
Wenn Sie nur wenig Speicher haben, 
wählen Sie etwas kleinere Zahlen. 

DATEILAENGE bestimmt in etwa die 
maximal erlaubte Dateilänge, hier also 
20000 Byte. MAXZEILEN gibt an, wie- 
viele Zeichen die Datei maximal haben 
darf. Beachten Sie jedoch, daß jede 
Zeile zwei Nummern benötigt. Wenn Sie 
also in der Datei 1000 Zeilen erwarten, 
müssen Sie MAXZEILEN auf den Wert 
2000 definieren. MAXKEYS gibt die 
maximale Zahl Schlüsselwortgruppen - 
Antwortgruppenpaare an. Jede Schlüs- 
selwortgruppe belegt allerdings drei 
Nummern! Mit einer Definition von 
»#define MAXKEYS 400« sind also 
nur etwa 130 Schlüsselwortgruppen 
erlaubt. 


Zum Vergleich: Die hier gedruckte 
Grunddatei Eliza.DAT benötigt minde- 
stens die Werte DATEILAENGE = 
4500, MAXZEILEN = 520, MAXKEYS 
= 100. Ohne Änderung der Daten kön- 
nen Sie also bis zu viermal längere 
Wortschatzdateien verwenden. Eine 
Überschreibung der zulässigen Maxi- 
mallängen prüft das Programm aller- 
dings nicht. Diese führt ohne Warnung 
zum Systemabsturz. 

Der Hauptaufwand des Programms 
liegt darin, leistungsfähige Routinen zur 
Zeichenkettenverarbeitung zur Verfü- 


Durch 


kann stattdessen eine andere Datei 
Der korrekte Dateiaufbau und erlaubte Dateilaenge 


Die Funktion “getns” muss an das Betriebssystem angepasst werden ! 


Der Aufruf von °fopen’ 


in funktion ‘einlesen’ 


variiert von Compiler 


zu Compiler ===> unbedingt anpassen !!! 


*/ 

*include "stdio.h" 
#define DATEILAENGE 20000 
#*define MAXZEILEN 2000 
#define MAXKEYS 400 


/* 


“getns‘ unterscheidet sich von der Standardbibliotheksfunktion 


/* maximale Dateigroesse in Bytes */ 
/* 2 mal die maximale Zeilenzahl der Datei */ 
/* 3 mal die maximalen Schluesselwortgruppen */ 


“gets’ nur 


durch die Angabe der maximalen Zeilenlaenge und laueft nur unter CP/M-80, 


In anderen Systemen Funktionsrumpf einfach durch 


*/ 


getns (eingabe, maxlen) 
char eingabe[] ; 
int maxlen; 
{ 
char puffer [MAXLINE + 2]; 


*puffer = maxlen; 
bdos (10, puffer); 
puffer[2 + puffer[l]] = NULL; 
strcpy (eingabe, puffer + 2); 


/* 
tlen ist 
“instr‘ sucht in 
“fl 


instr (start, text, tlen, such, slen) 


Listing 1. Smalltalk mit Eliza 


tatsaechliche Laenge des Strings text, 
“text” ab Position 
gefunden Rueckgabe der Position von 


“gets (eingabe) “ersetzen ! 


maximale Laenge in erstes Pufferbyte 
Aufruf CP/M - Zeileneditor 
tatsaechliche Laenge im 2. 
Text ab zweitem Pufferbyte 


Pufferbyte 
* 


slen ist Laenge von such, 
nach dem String ‘such’, Wenn 
sonst °0°, 


start’ 
“such’, 


BAAPPY® 
COMPUTER: 
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gung zu stellen. Der Aufwand lohnt sich 
aber. Die Routinen »getns«, »instr«, 
»einlesen« und »holeeing« sind sehr uni- 
versell und auch für andere Programme 
brauchbar. Am besten fügen Sie sie in 
Ihre  Standard-Bibliotheksfunktionen 
ein (kopieren Sie aber vorher Ihre 
Standard-Bibliothek). Da die Funktio- 
nen keine globalen Variablen benöti- 
gen, ist das ohne weiteres möglich. 

Die Funktion »getns(eingabe,max- 
len)« entspricht der Funktion »gets(ein- 
gabe)« mit zusätzlicher Angabe der Zei- 
lenlänge, bei deren Überschreibung die 
Eingabe abgebrochen wird. Intern 
stützt sich die Funktion auf den CP/M- 
Zeileneditor. Deshalb ist sie leider nur 
unter CP/M-80 einsetzbar. 

Die Funktion »einlesen(name,datei, 
descript)« liest die Datei, deren Name 
ab der Adresse »name« gespeichert ist, 
von der Diskette und legt sie im Spei- 
cher ab der Anfangsadresse »datei« 
(am besten ein Charakterarray) ab. Ein 
einziges Nullbyte ersetzt mehrfache 
Kombinationen von CR (Wagenrück- 
lauf) und LF (Linefeed). Dadurch wird 
jede Zeile in einer eigenen Zeichen- 
kette abgelegt, und betriebssystem- 
und compilerabhängige Unterschiede 
zwischen Textdateien werden besei- 
tigt. Beimanchen Systemen genügt nur 
LF oder CR, um eine neue Zeile zu si- 
gnalisieren, andere Systeme (zum Bei- 
spiel CP/'M und MS-DOS) benötigen 
beide. Als Nebeneffekt werden bei die- 
ser Manipulation alle Leerzeichen ent- 
fernt. 

Im Programm Eliza gilt auch ein 
Schrägstrich »/« als Zeilenvorschub- 
byte. Bevor Sie diese Funktion in die 
Standardbibliothek aufnehmen, sollten 
Sie eventuell diese Abfrage entfernen. 
Wenn Sie mit mehreren Dateien 
zugleich arbeiten wollen, schließen Sie 
die Datei nach dem Einlesen, um den 
benötigten Diskettenpuffer wieder frei- 
zugeben. Sonst wird mit der Zeit das 
System verstopft. 

Als Drittes wird der Funktion ein Inte- 
gerfeld übergeben. In dieses werden 
während des Einlesens - analog zur 
Stringverarbeitung in Basic - String- 
descriptoren abgelegt. Jeweils zwei 
aufeinanderfolgende Feldelemente 
enthalten Informationen zum selben 
String. Das erste Feldelement eines 
Paares enthält die Anfangsadresse 
einer Zeile und das zweite dessen 
Länge. Um die Länge einer Zeichen- 
kette festzustellen, braucht jetzt also 
nicht mehr die ganze Zeichenkette 
nach einem Nullbyte durchsucht zu 
werden. Das erste nicht mehr benötigte 
Element des Descriptorfeldes wird mit 
Null markiert. Zur Verwaltungsvereinfa- 
chung kann im Hauptprogramm das 
Descriptorfeld auch als Array definiert 
werden, dessen Elemente analog zu 


char text[], such[]; 
int start, tlen, slen; 


{ 


/* 


ER 


int i, ende; 
char *txtp, *txt2p, *suchp, *such2p, c; 


if(slen == l) { 
c = *such; 
for (txtp = text + start - 1; *txtp != NULL; txtp++) 
if(*txtp == c) 
return txtp - text + 1; 
return 0; 
} else { 
ende = tlen - slen + 15 /* letzte Position, an der such Platz hat */ 
txtp = text + start - 1; /* Anfang nicht beachten */ 
suchp = such + 1j 
for(i = start; i <= ende; i++) { /* moegliche Anfangspos. von suc */ 
if(*such == *txtp++) 7/* Kontrollschleife nicht immer nitig */ 
for (such?2p = suchp, txt2p = txtp; *such2p == *txt2p; txt2p+t+) 
if(*++such2p == NULL) /* wenn Ende von such, dann o.k */ 
return ij 


/* Sonderfall 1l-Zeichenstring (Geschwindigkeit! */ 


} 
return 0; 


Datei von Diskette einlesen; dabei mehrfache Zeilenuebergaenge (CR, LF und 
Leerzeilen) ersetzen durch ein einziges ‘NULL’. Zeichen °/’° gelten als 
logische Zeilenuebergaenge. Zusaetzlich Aufbau eines 
Stringdescriptorenfeldes: je 2 aufeinaderfolgende descript-Elemente 
enthalten Adresse und Laenge einer Zeile 


einlesen (name, datei, descript) 
char name[], datei[]; 

int descript[]; 

{ 


/* 


nr 


char *dateip, puffer (BUFSIZ]; /*. *puffer‘ ist Datenpuffer zum Diskio */ 
int c, *zeilp, len; /* "*zeilp’” Zeiger in Descriptorenfeld*/ 
if (fopen (name, puffer) == ERROR) { /* Hier Anpassung an verwendeten*/ 

puts ("*#Htr* Datei ""); /* Compiler notwendig ! 74 


puts (name) ; 
puts("” nicht gefunden *****\n"); 


exit(); 
} 
zeilp = descript; 
*zeilp++ = dateip = datei; /* Adresse der ersten Zeile belt 
len = 0; /* Startwert fuer Zeilenlaenge */ 
while((c = getc(puffer)) != CPMEOF) { /* Lesen, bis EOF auftritt “7 
if(c == ERROR) { 
if(*(dateip - 1) != NULL) { /* Unerwartetes Dateiende wie */ 
*dateip++ = NULL; /* Zeilenende behandeln “/ 
*zeilp++ = len; 
zeilp+t+j 
} 
break; 


} 
if(c == 13 Il c == 10 || c == °/‘) t /* Newlinemarkier. der Dätei*/ 
if(*(dateip - 1) != NULL) { /* Leerzeilen nicht beachten */ 
*dateip++ = NULL; 


*zeilp++ = len; /* Laenge in Stingdescriptor */ 
*zeilp++ = dateip; /* Adresse naechste Zeile “ 
len = 0; 
} 
} else { 
*dateip++ = cj /* “normales‘ Zeichen “/ 
lent+j 
} 
*dateip = EOF; /* Ende der Datei “/ 
*--zeilp = 0; /* Auch im Descriptorfeld “ 


Datei fuer Verwendung durch Eliza vorbereiten: Anfangsadressen der 
Begruessungszeile, der Konjugationsregeln, Schluesselwortgruppen bestimmen 
Nach jeder Schluesselwortgruppe folgt ein Satz dazupassender Antworten 


ordnen (descript, servus, konjfirst, keylist) 
int descript[], *servus, *konjfirst, keylist[]; 
{ 


char **zeilp; 
int *keyp, ij 


zeilp = descript; /* Header - zeilen ueberspringen “r 

while (**zeilp != °$°) /* *$° ist Zeichen fuer Gruppenende x 
zeilp += 2; 

*servus = zeilp + 2; /* Begruessungszeile “7 

zeilp += 6; 


*konjfirst = zeilp; /* Descriptor der ersten Konjugation merken */ 


while (**zeilp != °$°) /* Uebrige Konjugationen ueberspringen “ 
zeilp += 2 h 

zeilp Sr ! /* Korrektur “/ 

keyp = keylist; /* Adressen der Schluesselgruppen in Feld 3 

i=0; /* 0 = Schluesselwort, 1 = Antwort “/ 

while (*zeilp != 0) { /* bis Dateiende “/ 

*keyp+t+ = zeilpj /* Start Schluessel/ Antwortgruppe “/ 

if 17) /* 1 bedeutet Antwortgruppe */ 

*keyp+t+ = zeilp; /* Antwortgruppe doppelt ablegen (ist wf 

i= li} /* noetig ”r 
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} 


/* 


Er 


while (**zeilp != °$‘) /* Uebrige Saetze der Gruppe ueberspringen */ 
zeilp += 2; 
zeilp += 2; 
} 
*keyp = 0; /* Ende der Schluesselworttabelle 74 


Zeile von der Tastatur holen; dabei Rueckgabe der Zeilenlaenge, ent- 
fernung aller Apostrophe "“" aus Text und Umwandlung in Kleinbuchstaben 


holeeing (eingabe, einlen) 
char eingabe[]; 
int *einlen; 


{ 


/* 


“] 


char *ziel, *quelle, c; 


puts (": "); /%* Meldung: Zur Eingabe bereit 74 

getns (eingabe + 1, 77); /* Zeile holen, maximal 77 Zeichen *£ 

puts ("\n"); 

ziel = quelle = eingabe; 

*ziel = " ‘5 /* Leerzeichen voranstellen af 

while((c = *quelle++) != NULL) 7/* Zeichen aus Puffer bis Ende erreicht */ 
if(c t= °\”’) /* Wenn kein "°" wieder ablegen, aber ohne Luecken */ 

(e< ’A Il cc» '2°) ? *zielt+ = cc : *zielt+ = c + 32; 

*zielt+ = * /* dabei Umwandlung in Kleinbuchstaben Kr 

*zielt+ = ° '; /* 2 Leerzeichen anfuegen ad 

*ziel = NULL; /* Endemarkierung 74 

*einlen = ziel - eingabe; 7/* Laenge berechnen “7 


Standard-Antwortsatz anhand der Eingabe bestimmen: Durchsuchen der 
Eingabe nach Schluesselwoertern; wenn gefunden, waehlen eines beliebigen 
Antwortsatzes aus der zugehoserigen Gruppe 


findantw (antwort, antlen, restpos, eingabe, einlen, keylist) 
char *antwort[], eingabe[]; 
int keylist([], *antlen, *restpos, einlen; 


{ 


} 


/* 


“f 


char **zeilp; 
int *keyp, posj; 


for (keyp = keylist; *keyp != 0; keyp += 3) /* Schleife Wort-gruppe Kf 
for (zeilp = *keyp; **zeilp != ’$°; zeilp += 2) /* next Schluessel “7 

if(pos = instr(l, eingabe, einlen, *zeilp, *(zeilp + 1))) { 
*restpos = pos + *(zeilp + 1); /* Gefunden: Rueckgabe Pos. */ 


zeilp = *(keyp + 2); /* hinter dem Schluesselwort */ 
*antwort = *zeilp++j /* Rueckgabe Adresse Antwort */ 
*antlen = *zeilp++; /* Rueckgabe Antwortlaenge a 
if(**zeilp != 8°) { /* Beim naechstenmal naachste*/ 

*(keyp + 2) = zeilp; /* passende Antwort */ 
} else { 

*(keyp + 2) = *(keyp + 1); /* nach letzter passender “7 
} /* wieder bei erster beginnen*/ 
return; 


Nebensatz konjugieren: In Tabelle konj stehen Paarweise Descriptoren auf 


gegenseitig auszutauschende Worte. z.B. your” in my’ und umgekehrt. 


konjugation (neben, nlen, konj) 
char neben[]; 
int *nlen, *konj; 


G 


char temp[MAXLINE] , **zeilp, *ziel, *quelle, c; 
int l, ss, 1sı sr, 1r, s, r, len; 


len = *nlen; /* Anfangslaenge des Nebensatzes “f 
strcpy (temp, neben) ; /* wird Schrittweise durch Ergebnsi ersetzt “7 
for (zeilp = konj; **zeilp != °$°; zeilp += 4) { /* °$’ist Tabellendende*/ 
l=1; /* Startposition zum suchen “f 
ss = *zeilp; /* Descriptoren eines Wortpaares holen “fs 
ls = *(zeilp + 1); 
sr = *(zeilp + 2); /* Adresse und Laenge des 2. Wortes “L 


*(zeilp + 3); 

while( (s=instr (l,neben,len,ss,1l5)) + (r=instr (l,neben,len,sr,1r))) { 

if(s<r?s: Ir) { /* Test ob 2. Wort in 1. oder umgekehrt */ 
strepy(temp + s - l, sr); /* erstes Wort in temp einfuegen */ 
strcpy(temp + s - 1 + Ir, neben + s - 1 + 15); 


l1=s+1lr-1; /* Rueckuebersetzung sperren 74 
len = len + Ir - 1s; /* neue Laenge der Konjugation w 
} else { /* Wenn 2. Wort zuerst gefunden, in l. umwandeln */ 


strepy(temp + r - 1, 55); 
strepy(temp + r - 1 + 15, neben + r - 1 + Ir); 
l=r+1ls -1; 
len = len + 1s -Ir; 
} 
strepy (neben, temp); /* altuelle Version des strings holen */ 
} 
} 


ziel = neben; /* doppelte Leerzeichen am Zeilenanfang entfernen */ 
quelle = *(neben + 1) != ° ° ? neben : neben + 1; 
while((c = *quella+t+) != NULL) /* bis zum Zeilenende */ 


Listing 1. Smalltalk mit Eliza (Fortsetzung) 
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Records in Pascal »structs« aus je zwei 
Integerzahlen bestehen. Diese Mög- 
lichkeit bieten allerdings nicht alle Com- 
piler. 

Die Funktion »instr(start,text,tien, 
such,slen)« entspricht der gleichnami- 
gen Basic-Funktion. Ab der Position 
»start« (gezählt wird hier ab 1) wirdin der 
Zeichenkette »text« nach dem ersten 
Auftreten der Zeichenkette »such« 
gesucht. Wenn »such« gefunden 
wurde, wird die Position zurückgege- 
ben, an der sie in »text« stand. Andern- 
falls erhält das Hauptprogramm den 
Wert O. Die Suche beginnt nicht unbe- 
dingt am Anfang von »text«, sondern an 
der Position, die »start« angibt. Zur 
Geschwindigkeitssteigerung werden 
der Funktion mit »tlen« und »slen« auch 
noch die Längen von Text und Such- 
string übergeben. Wenn diese Werte 
unbekannt sind, kann im Aufruf immer 
noch »strlen(text)« und »strlen(such)« 
statt »tlen« und »slen« verwendet wer- 
den. 

Da die Routine sehr oft durchlaufen 
wird, spart man hier nicht an der Pro- 
grammlänge, sondern lieber an der 
Anzahl der insgesamt auszuführenden 
Operationen. Wenn die Suchzeichen- 
kette die Länge 1 hat, wird eine beson- 
ders einfache Schleife durchlaufen, die 
nur eine ‚Abfrage auf »Zeichen gefun- 
den« enthält. Ist die Suchzeichenkette 
länger als ein Zeichen, wird in der äuße- 
ren Schleife zunächst nur geprüft, ob 
das erste Zeichen der Suchzeichen- 
kette mit einem Zeichen des Textes 
übereinstimmt. Erst wenn eine Überein- 
stimmung auftaucht, wird die Schleife 
aufgebaut, die feststellt, ob auch noch 
die folgenden Zeichen passen. Sobald 
ein Unterschied festgestellt wird, bricht 
die Schleife ab. Eine weitere Beschleu- 
nigung ist möglich, wenn Ihr Compiler 
Registervariablen bietet. Sogar »sta- 
tic«-Variablen sind noch wesentlich 


schneller greifbar als »automatic«- 
Variablen. 
Die Funktion »holeeing(eingabe, 


&einlen)« holt eine Eingabezeile von der 
Tastatur. In der Integer-Variablen »ein- 
len« wird die Anzahl der eingegebenen 
Zeichen zurückgemeldet. Die Routine 
gibt vor der Eingabe selbständig ein 
Eingabeprompt (analog zum »A>« in 
CP/M) aus, und beendet die Eingabe 
auf dem Bildschirm durch einen Zeilen- 
vorschub. Vor der Rückgabe werden 
alle eingegebenen Zeichen in Klein- 
buchstaben umgewandelt und Apo- 
strophe »« entfernt. Vor der Zeile 
stehen jeweils ein und dahinter zwei 
Leerzeichen. x 

Die Funktion »konjugiere(&antwort, 
&anlen,konj)« ist die komplizierteste 
Funktion des Programms und eine spe- 
zielle Eliza-Funktion. Die vollständige 
Verarbeitung eines Konjugationswort- 
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paares entspricht einem Durchlauf der 
for-Schleife. Zunächst werden die Län- 
gen und die Adressen der beiden Wör- 
ter geholt. Die while-Schleife wird so oft 
passiert, bis feststeht, daß weder das 
eine noch das andere Wort sich im 
Nebensatz befindet. Wenn mindestens 
eines der beiden gefunden wird, wird 
das bearbeitet, das im Nebensatz 
zuerst auftaucht. Der temporäre String 
enthält zunächst eine Kopie des 
Nebensatzes. Der Ersatzstring wird an 
die Stelle des temporären Strings 
geschrieben, an der das zu ersetzende 
Wort steht und der Rest des Nebensat- 
zes, der erhalten bleibt, angehängt. 
Danach wird die neue Länge des 
Nebensatzes berechnet und die Start- 
position zum Suchen so weitergesetzt, 
daß das eben ausgetauschte Wort nicht 
noch einmal untersucht wird. Zum 
Schluß wird der temporäre String wie- 
der auf den Nebensatz kopiert. Nach 
der vollständigen Konjugation werden 
eventuelle doppelte Leerzeichen vor 
und hinter dem Nebensatz sowie alle 
Unterstreichungszeichen entfernt. 
Zurückgegeben wird die neue Länge 
des Nebensatzes. 


Jedem seine Eliza 


Die Funktion »findantw« gibt zu einer 
Eingabe den passenden Standard- 
Antwortsatz und die Position des 
Nebensatzes in der Eingabe zurück. 
Dazu durchsucht die Funktion alle 
Schlüsselwortgruppen nach einer 
Übereinstimmung in der Eingabezzeile. 
Für jede Schlüsselwortgruppe sind im 
Feld »konj« drei Einträge reserviert. Der 
erste ist ein Zeiger auf die Descriptoren 
der Schlüsselwörter, der zweite ein Zei- 
ger auf den ersten Descriptor der dazu 
passenden Antworten und der dritte ein 
Zeiger auf die aktuelle Antwort. Sobald 
ein Schlüsselwort gefunden wurde, lie- 
fert die Funktion die Descriptorinhalte 
der aktuellen Antwort. Danach richtet 
sich der Zeiger auf den descriptor der 
nächsten Antwort. Wenn diese Antwort 
nicht mehr zur Gruppe gehört (Inhalt 
»$«!), wird wieder die erste Antwort zur 
aktuellen. So ist sichergestellt, daß alle 
zum Schlüsselwort passenden Antwor- 
ten irgendwann an der Reihe sind. 

Wenn Sie nun weiter interessiert sind, 
können Sie darangehen, das Programm 
auszubauen. Vielleicht statten Sie es 
mit einem Gedächtnis aus, so daß auch, 
wenn gerade kein Schlüsselwort in der 
Eingabe vorkommt, Eliza feststellen 
kann, welches Hauptthema in der Luft 
liegt. Oder Sie testen, wie sich eine 
andere Suchreihenfolge (etwa nach der 
Lage im Text statt nach der Reihenfolge 
in der Datei) auf die Antworten auswirkt. 

(Helmut Tischer/hg) 


IEIE ta #9) /* alle Unterstriche entfernen (falls bei bestimm-*/ 
*zielt++ = c; /* ten Worten Markierung fuer bereits ersetzt ws 

*ziel = NULL; /* notwendig war “/ 
*nlen = ziel - neben; /* neue Zeilenlaenge zurueckgeben “f 


Verlassen der Eingabeschleife durch ‘bye’. Ein Stern °*° in einem Antwort- 
statz veranlasst das Einfuegen eines konjugierten Nebensatzes. Der Neben- 
satz ist der Teil der Eingabe, hinter dem Schluesselwort 


main(argc, argv) 
int argc; 
char *argv[(]; 
{ 
int descript [MAXZEILEN] , *keyp, keylist [MAXKEYS] , 
einlen, anlen, restpos, t, npos, nlen; 
char datei [DATEILAENGE] , eagabe [MAXLINE] , oldeing[MAXLINE] ‚neben [MAXLINE] ‚ 


*name, *antwort, **servus, **konj, **zeilp; 


if(arge <= 1) { /* Datei einlesen und ordnen “f 
name "ELIZA.DAT"; /* wenn keine Dateinamensangabe: wife 

} else { /* Standard ist °ELIZA.DAT’ hi 
name argv[l]; 


einlesen (name, datei, descript); 
ordnen (descript, &servus, &konj, keylist); 
for (zeilp = descript; **zeilp != °$°; zeilp += 2) { 
puts (*zeilp) ; /* Headerzeilen anzeigen 
puts ("\n"); 
} 
puts (*servus) ; /* Begruesung von Eliza 
puts ("\n"); 
*oldeing = NULL; /* alte Eingabe zunaechst loeschen 
£or(y3;) { /* Hauptschleife des Programms 
‚do { /* solange abfragen, bis Eingabe unterschiedlich zur letzten 
holeeing (eagabe, &einlen); 
if(!stremp (eagabe, " bye "*)) /* Programmabbruch 
exit); 
if(t = !stremp (eagabe,oldeing)) /* Eingabe war schon mal da 
puts ("please don’t repeat yourself !\n"); 
} while (t); 
stropy (oldeing, eagabe); /* neue Eingabe wird alte 
findantw (&antwort, &anlen, &restpos, eagabe, einlen, keylist); 
if(npos = instr (l, antwort, anlen, "*", 1)) { /*Nebensatz einfuegen?*/ 
strepy (neben, " "); /* Nebensatz beginnt hinter Schluesselwort */ 
strepy (neben + l, eagabe + restpos - 1); 
nlen = einlen - restpos + 2; /* Laenge des Nebensatzes */ 
konjugation (neben, &änlen, konj); /* Konjugieren ug 
strcpy (eagabe, antwort); /* Standard-Antwort nicht zerstoeren!*/ 
strcpy (eagabe + npos - 1, neben) ;/* Nebensatz in Kopie einfuegen*/ 
strcpy (eagabe + npos - 1 + nlen, antwort + npos); 
antwort = eagabe; /* Kopie wird zu neuer Antwort “ER 
} 
puts (antwort); /* Gesamtantwort auf Bildschirm ausgeben */ 
puts ("\n"); 
} 
} 
egdschattt I %% Listing 1. Smalltalk mit Eliza (Schluß) 


- der Computer als Psychoanalytiker 


Wortschatz: entnommen aus Creative Computing, Juli-August 1977 
Programm: neu entwickelt im M{rz 1986 von Isar-Amper-Soft 
Y 
/ 
Erzt{hl’” doch Eliza einfach irgendetwas, 
wozu Du gerade Lust hast. 


hi, i am eliza. tell me your problem. 
$ 

are / am / 
were /was / 

you Zi 7 
your /my / 

ive / youve / 

im / youre / 


can you 

$ 

don’t you believe i can* 

perhaps you would to be able to* 
you want me to be to* 

$ 

can i 
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$ 

perhaps you don’t 

do you want to be 

$ 

you are Listing 2. Elizas 

gr Antworten als Datei 
HAPPY 

:OMPUTER. 


what makes you think i am* 

does it please you to believe i am* 
perhaps you would like to be* 

do you sometimes wish you where* 
$ 

i dont 

$ 

don’t you really* 

why don’t you* 

do you wish to be able to* 

does that trouble you? 

$ 

i feel 

$ 

tell me more about such feelings. 
do you often feel* 

do you enjoy feeling* 

$ 

why dont you 

$ 

do you really believe i don’t* 
perhaps in good time i will* 

do you want me to* 

$ 

why cant i 

$ 

do you think you should be able to* 
why can’t you* 

$ 

are you 

$ 

why are you interestet in whether or not i am* 
whould you prefer if i where not* 
perhaps in your fantasies i am* 

$ 

i cant 

E 

how do you know you can’t* 

have you tried? 

perhaps you can now* 

$ 


iam 
im / 

$ 

did you come to me because you are* 
how long have you been* 

do you believe it is normal to be* 

do you enjoy being* 

$ 

you / 

$ 

we were discussing you-- not me. 

oh, i* 

you’re not really talking about me, are you? 
$ 

i want 

$ 

what would it mean to you if you got* 
why do you want* 

suppose you Soon got* 

what if you never got* 

i sometimes also want* 

$ 

what 

how 

who 

where 

when 

why 

$ 

why do you ask? 

does that question interest you? 

what answer would please you the most? 
what do you think? 

are such questions in your mind often? 
what is that you really want to know? 
have you asked anyone alse? 

have you asked such questions before? 
what alse comes to mind when you ask that? 
$ 

name 

$ 

names don’t interest me. 

i don’t care about names-- please go on. 
$ 

cause 

$ 

is that the real reason? 

don’t any other reasons come to mind? 
doeas that reason explain anything else? 
what other reasons might there be? 

$ 

sorry 

$ 

please don’t apologize! 

apologies are not necessary. 

what feelings do you have, when you apologize? 
don’t be so defensive! 

$ ’ 

dream 

$ 

what does that dream suggest to you? 
do you dream often? 


” 


what persons appear in your dreams? 
are aou disturbed by your dreams? 
$ 
hello 
hi / 
$ 
how do you do ... please state your problem. 
$ 
maybe 
$ 
you don’t seem quite certain. 
why the uncertain tone? 
can’t you be more positive? 
you aren’t sure? 
don’t you know? 
$ 
no 
E 
why no* 
don’t say no. its always so negative. 
why not? 
are you sure? 
why no? 
$ 
your 
$ 
why are you concerned about my* 
what about your own* 
5 
always 
$ 
can’t you think of a specific example? 
when? 
what are you thinking of? 
really, always? 
$ 
think 
$ 
do you really think so? 
but you are not sure you* 
do you doubt you* 
in what way? 
$ 
alike 
$ 
what resemblance do you see? 
what does the similarity suggest to you? 
what other connections do you see? 
could there really be some connections? 
how? 
you seem quite positive. 
are you sure? 
$ 
yes 
$ 
i see. 
i understand. 
$ 
friend 
$ 
why do you bring up the topic of friends? 
do your friends worry you? 
do your friends pick on you? 
are you Sure you have any friends? 
do you impose on your friends? 
perhaps your love for friends worries you. 
$ 
computer 
$ 
do computers worry you? 
are you talkink about me in partikular? 
are you frightened by machines? 
why do you mention computers? 


z 


what do you think machines have to do with your problems? 


don’t you think computers can help people? 
what is it about machines that worries you? 
$ 

money 

$ 

why do you have problems with money? 

do you think money is everything? 

are you sure that money is the problem? 

$ 

eliza 

$ 

i think we want to talk about you, not about me. 
whats about me? 

why do you always bring up my name? 


a 
$ 
say, do you have any psychological problems? 
what does that suggest to you? 
i see. 
i“m not sure i understand you fully. 
come elucidate your thoughts. 
can you elaborate on that? 
that is quite interesting. 
$ 


Listing 2. Elizas Antworten als Datei (Schluß) 
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. Forth: Programmieren 
in der vierten Dimension 


Eine Programmiersprache, die 
sich in der letzten Zeit ständig 
steigender Beliebheit erfreut, 
ist Forth. Zu Recht, denn Forth 
ist eine äußerst leistungsfähige 
Sprache mit einem ungewöhnli- 
chen Konzept. Schwer zu lernen 
ist sie nicht. 


eites Computer gibt, ist das zen- 

trale Problem die Kommunika- 

tionsschnittstelle Mensch/ Com- 
puter - oder anders formuliert, wie sage 
ich meinem Computer, was er tun soll? 
Während in der »grauen Vorge- 
schichte« der EDV noch bitweise pro- 
grammiert werden mußte, erwies sich 
dieses Verfahren im Laufe der Zeit als 
viel zu umständlich. Es entstanden 
höhere Programmiersprachen, die sich 
einer bestimmten Anzahl von Befehls- 
worten bedienen. Meist sind diese an 
die menschliche Sprache angelehnt. 
Zu solchen höheren Programmierspra- 
chen zählen beispielsweise Fortran, 
Basic, Pascal, C oder Lisp, um nur 
einige zu nennen. 

Betrachtet man sich die Entwicklung 
in der Computertechnik, so stellt man 
fest, daß sich, seitdem das erste Röh- 
rengerät in Betrieb ging, bis zum heuti- 
gen Tage die Hardware rasant weiter- 
entwickelt hat. Anders die Software. 
Hier dominieren noch immer Sprachen 
wie Fortran und Basic, die in ihren 
Ursprüngen in die fünfziger Jahre 
zurückreichen. 

Daß Programmiersprachen für Com- 


puter, die Sie heute nur noch im. 


Museum bewundern können, nicht 
immer den heutigen Ansprüchen genü- 
gen, ist leicht einzusehen. Vor allem 
Basic, das sich mittlerweile zum Stan- 
dard für kleine und mittlere Systeme 
entwickelt hat, hinkt den Ansprüchen 
der meisten Programmentwickler weit 
hinterher. Zwar ist es leicht zu erlernen 
und besitzt eine unkomplizierte 
Befehlssyntax, aber strukturierte Pro- 
gramme, lokale Variablen und ähnliches 
sind für die meisten Dialekte tabu. 
Was tut also der (Basic-)frustrierte 
Programmierer? Er sucht sich eine 
neue Sprache, die seinen Ansprüchen 
besser gerecht wird. Und da beginnt 
das Dilemma. Welche der vielen Kon- 
kurrenten kommt für ihn in Frage? Hier 
ist es hilfreich, sich zu überlegen, was 


die »neue Traumsprache« alles leisten 

soll. Folgende Punkte sind dabei für 

jeden Programmierer wichtig. Die Spra- 

che soll: 

- schnell sein, 

- strukturiertes Programmieren ermög- 
lichen, 

- auf andere Computertypen übertrag- 
bar sein, 

- die Stärken des eigenen Geräts 
unterstützen, 

- erweiterbar sein, 

- möglichst wenig des kostbaren RAM- 

Speichers belegen, 

- relativ leicht zu erlernen und zu ver- 
stehen sein. 

Wenn das auch Ihre Vorstellungen 
einer nahezu idealen Programmierspra- 
che sind, dann brauchen Sie nicht län- 
ger zu suchen. Denn solch eine Traum- 
sprache gibt es schon - Forth. 

Zwar istauch Forth nicht die Program- 
miersprache schlechthin, doch weist 
sie zumindest die oben aufgeführten 
Vorteile (und noch einige mehr) auf. 
Was es damit tatsächlich auf sich hat, 
darüber klären Sie die nächsten Seiten 
auf. Sie ersetzen zwar kein Handbuch 
von Forth (es können auf so wenig Sei- 
ten niemals alle Anweisungen erklärt 
werden), aber wir wollen versuchen, 
Ihnen ein Gefühl für den typischen Cha- 
rakter von Forth zu geben. Vielleicht 
kommen Sie auf den Geschmack, sich 
mit dieser faszinierenden Sprache 
näher zu befassen. 


Forth, Sprache für 
den Weltraum 


Forth wurde Ende der sechziger 
Jahre entwickelt und ursprünglich zur 
Steuerung und Auswertung der Meßda- 
ten einer Sternwarte eingesetzt. Schon 
damals stand die Zukunft von Forth im 
wahrsten Sinne des Wortes in den Ster- 
nen, denn die amerikanische Weltraum- 
behörde NASA wählte Forth als 
Sprache für zukünftige Satellitenpro- 
gramme. Doch bevor es dazu kommen 
sollte, blieb es bis Ende der siebziger 
Jahre sehr ruhig um diese Sprache. 
1977 gründete eine nichtkommerzielle 
Gruppe von Programmierern die »Forth 
Interest Group« (FIG) und machte Forth 
damit einer breiteren Öffentlichkeit 
zugänglich. Es entstand als Standard 


FIG-Forth, aus dem sich zwei Jahre spä- 
ter der Forth 79-Standard entwickelte. 
Beide Versionen sind heute im Heim- 
und Personal Computerbereich verbrei- 
tet. Der Unterschied dieser Dialekte ist 
nur gering, so daß sich FIG-Forth- 
Programme leicht in den 79-Standard 
umsetzen lassen - und umgekehrt. 

In unserer Einführung wollen wir im 
wesentlichen das ältere FIG-Forth 
benutzen. Etwaige Abweichungen zum 
79-Standard bleiben aber auch nicht 
unerwähnt. 

Mittlerweile wird für fast jedes Com- 
putersystem eine Forth-Version ange- 
boten. Da die Sprache kaum Speicher- 
platz beansprucht, ist sie ideal für klei- 
nere Systeme geeignet. Im allgemeinen 
benötigt Forth nicht mehr als 10 KByte 
RAM-Bereich. Je nachdem, welche 
Extras zusätzlich implementiert sind, 
kann sich dieser Bereich natürlich erhö- 
hen. 

Forth kommt im Prinzip ohne Massen- 
speicher aus, weshalb sich ein Disket- 
tenlaufwerk erübrigt. Da beim Heim- 
computer die Programme nicht im ROM 
vorliegen, braucht man aber unbedingt 
einen Kassettenrecorder. Dennoch, 
wie bei allen Sprachen ist auch unter 
Forth der Gebrauch eines Disketten- 
laufwerks angenehmer als ein Datenre- 
corder. Auch kommen einige Stärken 
von Forth nur mit einem Laufwerk zum 
Tragen. 

Nachdem Sie Ihre Forth-Version gela- 
den und gestartet haben, erscheint, 
zusammen mit einer Mitteilung über die 
Herkunft des Systems, der gleiche Cur- 
sor, den Sie sicher schon von Basic her 
bestens kennen. 

Zwei verschiedene Wege gibt es, um 
sich mit der neuen Sprache vertraut zu 
machen. Entweder Sie starten einen 
»Trockenkurs« und studieren das Hand- 
buch inallen Einzelheiten, oder aber Sie 
legen alle Hemmungen ab, geben 
irgendetwas ein und warten, was der 
Computer machen wird. Entscheiden 
Sie sich für die zweite Art, so werden 
Sie sehr oft eine nüchterne Fehlermel- 
dung auf dem Bildschirm vorfinden. 
Diese besteht entweder aus einem 
Kommentar wie zum Beispiel »CAN’T 
FIND« oder aus einer Ziffer, die die Feh- 
lerart anzeigt. Manchmal wird der Com- 
puter aber auch mit einem lapidaren 
»OK« antworten. Immer dann haben Sie 
eine Forth-Anweisung richtig benutzt. 

Für den Fall, daß Sie aber den Wort- 
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schatz ohne langes Ausprobieren ken- 
nenlernen wollen, ist in fast jedem 
Forth-Compiler eine Anweisung vorge- 
sehen, die alle Befehle auf dem Bild- 
schirm ausgibt. »VLIST« oder »WORDS« 
sind zwei häufig gebrauchte Kennworte 
für diesen Befehl. Dieses Wörterbuch 
zeigt sämtliche Anweisungen, die Ihr 
Compiler versteht. Ganz egal, ob es 
sich um vor- oder selbstdefinierte 
Befehle handelt. 


Erste 
Kontaktaufnahme 


Unter Forth müssen alle Eingaben mit 
der RETURN- (oder ENTER-) Taste 
abgeschlossen werden. Die eingege- 
benen Worte lassen sich in drei Grup- 
pen unterscheiden - in »Nonsens«- 
Worte, die der Compiler mit einer Feh- 
lermeldung quittiert, in Anweisungen 
oder in Zahlen. Denn auch wenn Sie nur 
eine Zahl eingeben, reagiert der Compi- 
ler darauf mit »OK«, das heißt, er akzep- 
tiert den Befehl ohne Probleme. Was ist 
nun mit dieser Zahl geschehen? 

Bei nahezu allen Operationen in Forth 
spielt der Stack eine zentrale Rolle. Der 
Stack (zu deutsch Stapelspeicher) ist 
nichts anders als ein kleiner Speicher- 
bereich, der nach einem besonderen 
Prinzip verwaltet wird. Jede Zahlenein- 
gabe von der Tastatur, die mit RETURN 
abschließt, landet zuerst einmal im »Top 
Of Stack« (TOS), also in der obersten 
Speicherzelle (eine Speicherzelle ist 
ein 16-Bit-Register) des Stacks. 

Jede neu hinzukommende Zahlen- 


 - Forth wurde Ende u sechziger 
5 Jahre in den USA entwickelt. 
-- Forth ist eine Compilersprache, mit 


der Sie wer uch INeTORIN se 


a e Programme brauchen in Basic 
bis zu 20mal mehr Zeit als in Forth. 


- Der Befehlssatz in Forth besteht 
. aus 200 bis 300 Wörtern. Ein Wort 
‚läßt sich mit einem Unterprogramm 


in Basic oder besser mit einer Proze- 
‘dur in Pascal vergleichen. Der 
5 Benutzer kann diesen Wortschatz 
um eigene Definitionen erweitern. 
=D se neuen Wörter sind im 


. "Wörtern en identisch. 


Wörtern handelt es sich | 
sondaries, die wie- 
1-Wörtern aufgebaut 


E 


Empty Stack 


Bild 2. Die Ausgabe auf den Bildschirm erfolgt Immer vom Tos 


eingabe wird ebenfalls dort abgelegt. 
Alle bereits vorhandenen Zahlen rut- 
schen um eine Position nach unten. Bei 
der Ausgabe vom Stack kommt als 
erstes die Zahl im TOS an die Reihe. Da 
es sich hierbei immer um die zuletzt ein- 
gegebene Zahl handelt, wird das Ganze 
als »Zuletzt rein - zuerst raus«-Prinzip 
bezeichnet. Im Fachenglisch heißt das 
dann »Last In - First Out«-Prinzip (kurz 
LIFO). 

Alle Operationen, die den Stack be- 
einflussen, arbeiten nach diesem Ver- 
fahren. Deswegen sollten Sie sich 


sind, oder um Primitives, welche in 
Maschinencode definiert sind: 
- Forthrechnet nur mit Integerzahlen 
von 16 oder 32 Bit Breite. 


| - Forth belegt in der Regel zwischen 


8 und 12 KByte Speicherplatz 
(hängt von dem Umfang des Wort- 


‚schatzes ab). 


- Forth verwaltet den Diskettenapel-. 
cher virtuell, das heißt RAM- und 
Diskettenspeicher sind formell 
gleichwertig. 

- Forth ist weitgehend standardi- 
siert, das heißt alle für Heim- und 


| Personal Computer angebotenen 


Versionen leiten sich vom FIG-Forth 
ab. FIG-Forth stammt von der Forth 
Interest Group, einer nichtkommer- 
ziellen Vereinigung von Programmie- 
rer. 


| = Die Rechenoperationen werden in 
Forth nach den Bee der BORN 


damit gut vertraut machen. Bereitet 
Ihnen die Arbeitsweise noch Schwierig- 
keiten, dann hilft Ihnen vielleicht folgen- 
der Vergleich weiter. 

Stellen Sie sich einen Schreibtisch 
vor, auf dem ein Stoß Papier liegt. Legen 
Sie ein Blatt auf dem Stoß ab, so landet 
es auf der obersten Stelle. Das nächste 
Blatt liegt darüber und an oberster Posi- 
tion befindet sich damit immer das Blatt, 
das zuletzt abgelegt wurde. Wollen Sie 
nun den Papierstoß abarbeiten, dann 
nehmen Sie zuerst das oberste Blatt 
weg. Und dieses ist das zuletzt hinge- 
legte. Das schon am längsten auf dem 
Tisch liegende Papier ist das letzte 
beim Abarbeiten. Und so funktioniert 
auch der Stack in Ihrem Computer. 

Nach soviel Theorie zurück zu Forth. 
Wir wissen nun, wie der Stack verwaltet 
wird und wollen ausprobieren, wie wir 
drei Zahlen auf den Stack legen und 
wieder herunterholen können. Wir 
geben einfach folgende Zeile ein: 
149-2 

Zwischen zwei Zahlen muß immer ein 
Leerzeichen stehen und die Zeile mit 
der RETURN-Taste beendet werden. 
Der Computer quittiert die Eingabe mit 
»OK«. Was ist nun aber auf dem Stack 
passiert? Dazu betrachten wir Bild 1, 
das uns zuerst den »leeren« Stack und 
zum Schluß den »vollen« Stack zeigt. 
Zuerst wurde die 14 im TOS abgelegt, 
dann die 9 (gleichzeitig wandert die 14 
um eins nach unten) und zum Schluß 
die -2 (die andern beiden Werte wan- 
dern nach unten). 

Um diese Zahlen wieder vom Stack 
auszugeben, lernen Sie nun Ihr erstes 
Forth-Wort kennen (Befehle, bezie- 
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hungsweise Anweisungen, werden in 
Forth als Wort bezeichnet). Es handelt 
sich um einen unscheinbaren Punkt. 
Durch ».« wird die Zahl im TOS (Top Of 
Stack) auf den Bildschirm ausgegeben. 
. -2 ok 

Nach der Eingabe des Punktes und 
der RETURN-Taste reagiert der Compu- 
ter mit der Meldung »-2 OK«. Wir wollen 
im folgenden immer die Zeile so ange- 
ben, wie Sie nach der Bearbeitung aus- 
sieht. Eingeben dürfen Sie natürlich nur 
die Forth-Wörter (in diesem Falle also 
nur den Punkt). Sie können natürlich 
auch mehrere Zahlen auf einmal ausge- 
ben lassen: 
.. 914 0K 

Der nächste Punkt veranlaßt den 
Computer zu einer Fehlermeldung, da 
der Stack leer ist: 
. 0 EMPTY STACK 

Bild 2 zeigt Ihnen, wie sich der Stack 
bei der Ausgabe der Zahlen verändert. 
Sie sehen dabei, daß jede Zahl, die 
durch ».« auf dem Bildschirm erscheint, 
gleichzeitig vom Stack verschwindet 
und sich alle anderen Zahlen um eine 
Position nach oben bewegen. 

Bevor wir zu unseren ersten Rechen- 
aufgaben in Forth kommen, müssen wir 


. (N -) 


-gibt die Zahl im TOS 
(oberste Zahl im 
Stack) aus 

-gibt die Symbole zwi- 
schen den Anfüh- 
rungszeichen als Text 
aus 

-bewirkt einen Zeilen- 
vorschub 


. »lext« 


Tabelle. Ihre ersten Wörter in Forth 


uns noch einmal ganz genau mit der 
Syntax von Forth auseinandersetzen. 
Befehlswörter dürfen in Forth beliebig in 


einer Zeile stehen. Allerdings muß | 


immer mindestens ein Leerzeichen 
zwei Anweisungen trennen. Anders als 
beispielsweise in Basic, wo es einen 
festgelegten, im Grunde nicht mehr 
erweiterbaren Befehlssatz gibt, kann 
jedermann Forth um neue Befehle 
bereichern. Da dabei jede Zeichenkom- 
bination als Wortname erlaubt ist, stel- 
len die Leerzeichen für den Textinter- 
preter die einzige Möglichkeit dar, die 
Wörter voneinander zu unterscheiden. 

Auch Texte lassen sich unter Forth 
auf den Bildschirm ausgeben. Dazu 


dient ein zweites Wort: ».”«. Ein Bei- 
spiel: 
.” OSTERHASE” OSTERHASE OK 

Wenn Sie ».”OSTERHASE”« mit 
RETURN an den Computer abschik- 
ken, dann gibt er den Text »OSTER- 
HASE« zurück. Denken Sie an die rich- 
tige Verteilung der Leerzeichen, da 
sonst der Computer Sie nicht verste- 
hen kann. 

Mit solch einer Textausgabe können 
wir auch unsere Stack-Ausgabe kom- 
fortabler gestalten: 


4 0K 
ER. 10857, 
TOS : 4 OK 


Wenn Sie die 4 und die zweite Zeile 
eingegeben haben, dann antwortet der 
Computer mit der dritten. Das neue 
Wort »CR« bewirkt einen Zeilenvor- 
schub. Beimanchen Compilern funktio- 
niert dieser letzte Befehl nur in Wörtern. 
Wie Sie solche definieren, erfahren Sie 
später. Manchmal darf ».”...”« durch 
».(...)« ersetzt werden. Näheres finden 
Sie in Ihrem Handbuch. Die Wörter des 
ersten Teils der Einführung in Forth faßt 
die Tabelle noch einmal zusammen. 


(Peter Monadjemi/hg) 


UPN = Rechnen 
in der umgekehrten 


Forth zeigt einige unkonventio- 
nelle Lösungswege, Computer- 
programme zu erzeugen. Beson- 
ders das Rechnen in Forth unter- 
scheidet sich von fast allen 
anderen Computersprachen. 


er Stack ist das wichtigste 
Hilfsmittel zum Rechnen in 
Forth. Dazu stehen verschie- 
dene Operatoren und Befehlswörter 
zur Verfügung. Allerdings muß man bei 
dem Jonglieren mit Zahlen in Forth 
einige spezifische Besonderheiten 
beachten: 
- Alle Operationen werden nach den 
Regeln der Umgekehrten Polnischen 
Notation (UPN) durchgeführt. 
- Forth rechnet nur mit Integerzahlen 
(ganze Zahlen). 
- Forth kennt in der Standard-Version 
nur die vier Grundrechenarten. 


UPN ist eine Vorschrift für die Durch- 
führung von Rechenoperationen unter 
Einbeziehung eines oder mehrerer 
Stacks. Nehmen Sie als Beispiel die 
Operation »33*4=« (hier noch in der 
Basic-typischen Schreibweise). Die 
UPN-Schreibweise bereitet die Be- 
fehlszeile so auf, wie sie der Computer 
am leichtesten bearbeiten kann. Das 
bedeutet, daß zuerst die Operanden 
(Zahlen) und dann die Operatoren 
(Rechenzeichen) eingegeben werden. 
Unser Beispiel sieht dann wie folgt aus: 
33 4 % 

Das Ergebnis befindet sich nach der 
Berechnung im Stack - und zwar im 
TOS (Top of Stack) - und kann dort wei- 
terverarbeitet werden. Der Vorteil der 
UPN gegenüber der Infix-Notation (das 
ist die Basic-übliche Eingabe von 


Berechnungen) macht sich erst bei grö- 


Beren Ausdrücken bemerkbar. Die Ein- 
gabe in Infix-Schreibweise: 
(2+7)/(4*(8-3))= 


braucht bedeutend mehr Platz als die 
UPN-Schreibweise: 
27 +483-%*)/ 

Sie sehen, daß die UPN weder Klam- 
mern noch Gleichheitszeichen benö- 
tigt. Dadurch ergibt sich neben einer 
kürzeren, Speicherplatz sparenden 
Schreibweise auch ein erheblicher 
Geschwindigkeitsvorteil. Die Klammern 
erfordern vom Computer nämlich immer 
ein Vorausschauen, »wo wird diese wie- 
der geschlossen«. Bei der UPN hinge- 
gen werden bei jedem Rechenoperator 
die beiden obersten Werte im Stack mit- 
einander verknüpft und deren Ergebnis 
direkt im TOS abgelegt. Für unsere Auf- 
gabe bedeutet das, daß mit Eingabe 
des Pluszeichens die 2 und 7 addiert 
und das Ergebnis 9 in den TOS gelegt 
wird. Die Eingabe der drei Zahlen 4, 8 
und 3 bewirkt, daß die 9 an der vierten 
Stelle von oben liegt. Das Minuszei- 
chen berechnet 8 minus 3, legt die 5 in 
den TOS und zieht die beiden anderen 
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Werte nach oben. Das Malzeichen mul- 
tipliziert die 5 mit der 4, legt das Ergeb- 
nis ab und schon steht die 9 direkt unter 
der 20. Das Divisionszeichen besorgt 
den Rest, so daß zum Schluß das 
Ergebnis der Rechnung im TOS steht. 
Die UPN ist also nicht etwa ein exoti- 
sches Rechenverfahren, sondern die 
»natürlichste« und effektivste Methode 
für einen Computer, Rechenoperatio- 
nen zu verarbeiten. 

Nun wollen wir uns aber damit befas- 
sen, wie sich der Stack verändert, wenn 
wir die Grundrechenarten bearbeiten 
lassen. Die Addition löst das Zeichen 
»+« aus. 

45 + 0K 

Was ist nun auf dem Stack gesche- 
hen? Dazu betrachten wir uns Bild 1. Sie 
sehen, daß sich vor dem Aufruf von»+« 
die beiden zu addierenden Zahlen an 
den beiden obersten Stellen des 
Stacks befinden müssen. Nach der 
Addition wird das Ergebnis im TOS 
abgelegt. Von dort kann man es mit ».« 
leicht auf den Bildschirm ausgeben. 

. 9 0K 

Die 9 zeigt an, daß das Ergebnis tat- 
sächlich im TOS gespeichert war. Die 
Subtraktion erfolgt analog: 

16 12 - . 4 0K 

Auch hier müssen sich die beiden 
Zahlen zuerst auf dem Stack befinden. 
»-« zieht die Zahl im TOS von der darun- 
terliegenden ab (siehe Bild 2) und »/« 
ruft die Division auf (Bild 3): 

202 / .100K 

Bis dahin ist die Welt noch in Ord- 
nung. Doch das nächste Beispiel führt 
zu einem unerwarteten Ergebnis: 

212 / .2100K 

Hier kommt das schon erwähnte Feh- 
len von Real-(Fließkomma-)zahlen voll 
zum Tragen. Aber keine Bange: Forth 
bietet verschiedene Wege, auch belie- 
big genaue Ergebnisse zu erhalten. Mit 
dem Operator »/« bekommen Sie also 
nur die Vorkommazahl. Um den ganz- 
zahligen Rest dieser Rechenoperation 
zu erhalten, gibt es unter Forth einen 
Befehl, den die meisten Basic-Dialekte 
nicht kennen. 

21 2 MOD . 1 0K 


23 4 MOD . 3 OK 
21 geteilt durch 2 gibt 10, Rest 1 und 
23 geteilt durch 4 gibt 5, Rest 3. Die 


Bild 1. So verändert sich der Stack 
bei der Addition 


ganzzahligen Restbeträge werden bei 
diesem Wort in den TOS gelegt. 

Die Multiplikation aktiviert »*«. 
20 20 * . 400 OK 

Allerdings muß man auch hier aufpas- 
sen, nicht den erlaubten Bereich zu ver- 
lassen. So ergibt 
200 200 * „. -25534 OK 


| 


u 
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ein falsches Ergebnis (beziehungs- 
weise eine Fehlermeldung). Diesmal 
liegt es allerdings nicht an den Integer- 
zahlen, sondern an der Tatsache, daß 
Forth intern nur mit 16 Bit breiten Zahlen 
rechnet. Da das 16. Bit das Vorzeichen 
enthält, ist damit der Rechenbereich auf 
die Zahlen zwischen -32768 und + 
32767 beschränkt -, zugegebenerma- 
ßen ein kleiner Darstellungsbereich. 
Doch auch hier stehen dem Program- 
mierer alle Türen offen. Theoretisch 
können Sie mit beliebig breiten Zahlen 
arbeiten. Von Haus aus erlaubt Forth, 
entweder auf das Vorzeichen zu ver- 
zichten oder aber mit 32 Bit breiten 
Zahlen zu arbeiten. Beide Fälle setzen 
allerdings spezielle Wörter voraus. So 
erhalten Sie bei unserer »verunglück- 
ten« Multiplikation mit 

200 200 * U. 40000 OK 

doch noch ein vernünftiges Ergebnis. 
Mit »U.« wird die Zahl, die im TOS steht, 
als vorzeichenlose Zahl auf dem Bild- 
schirm ausgegeben. 


Bild 2. So verändert sich der Stack 
bei der Subtraktion 


Das Rechnen mit 32-Bit-Zahlen erfor- 
dert spezielle Wörter. Diese erkennt 
man fast immer an einem »D« oder einer 
»2«, mit der der eigentliche Befehl 
beginnt. Damit der Textinterpreter solch 
eine doppelt lange Zahl korrekt erkennt, 
muß diese mit einem Dezimalpunkt ein- 
gegeben werden. Allerdings spielt es 


\ 


\ 


dabei keine Rolle, an welcher Stelle die- 
ser Punkt steht. 
222.222 OK 
Au.ııı4 OK 
D+ OK 

Durch »D+« werden die beiden dop- 
pelt langen Zahlen im Stack addiert und 
das Ergebnis im TOS abgelegt. Wie 
bekommen Sie nun diesen Wert auf den 
Bildschirm? Sicher nicht mit ».«. Denn 
damit erhalten Sie nur die niederwerti- 
gen 16 Bit der 32-Bit-Zahlausgegeben. 
Auch hier ist ein besonderes Ausgabe- 
wort notwendig, nämlich »D.«. 
D. 666666 OK 

Bislang wurde die Anordung der Zah- 
len auf dem Stack durch die Reihen- 
folge der Eingabe festgelegt. Sehr oft 
besteht jedoch die Notwendigkeit, 
diese Reihenfolge zu verändern, bezie- 
hungsweise einzelne Zahlen auf dem 
Stack zu kopieren. Auch dazu stehen in 
Forth eine Reihe von Befehlen zur Ver- 
fügung. Die wichtigsten erklären wir 
Ihnen im folgenden. 


Bild 3. So verändert sich der Stack 
bei der Division 
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34 DUP OK 
34 34 OK 

»DUP« (Bild 4) kopiert die Zahl im TOS 
und verschiebt die darunterliegenden 
um eins nach unten. Die Operation ist 
beispielsweise immer dann notwendig, 
wenn eine Zahl im TOS zwar ausgege- 
ben, mit ihr aber noch weiter gerechnet 
werden soll. 


67 88 SWAP OK 
. . 67 88 OK 


»SWAP« (Bild 5) vertauscht die bei- 
den obersten Zahlen im Stack. Norma- 
lerweise muß ja die zuletzt eingege- 
bene Zahl als erste wieder auf dem Bild- 
schirm erscheinen (LIFO-Prinzip: Last 
in first out). Das wäre hier die 88 gewe- 
sen. »SWAP« hat nun aber die beiden 
obersten Werte im Stack vertauscht, so 
daß die 67 im TOS stand und damit auch 
zuerst ausgegeben wurde. 


12 33 65 ROT OK 
e 12 65: 33 OK 


»ROT« läßt die obersten drei Zahlen im 
Stack einmal gegen den Uhrzeigersinn 
rotieren. Wie sich dabei der Stack ver- 
ändert, zeigt am besten Bild 6. Durch 
»ROT« wird die Zahl von der dritten 
Stelle im Stack ins TOS gebracht, wäh- 
rend die beiden darüberliegenden 
Werte um eine Position nach unten wan- 
dern. Alle Befehle (und noch einige 
mehr) finden Sie in der Tabelle noch ein- 
mal zusammengefaßt. 

Normalerweise werden alle Ein- und 
Ausgaben von Zahlen im Dezimalsy- 
stem durchgeführt. Forth ist jedoch in 
der Lage, beispielsweise die Zahlen in 
nahezu jedem System auszugeben. 
Dazu ist lediglich der Inhalt einer einzi- 
gen User-Variablen mit dem Namen 
»BASE« zu ändern. Bei den User- 
Variablen handelt es sich um Speicher- 


Bild 5. »SWAP« vertauscht den Wert 
im TOS mit dem darunterliegenden 
Stackwert 


Die Erklärung der Darstellung der Befehle finden Sie im letzten Kapitel. 


+ (ni n2 bis n3) - 
- (ni n2 bis n3) 

/ (ni n2 bis n3) 

MOD (n1 n2 bis n3) 


addiert die beiden obersten Zahlen des Stacks 
und legt'das Ergebnis im TOS ab 

subtrahiert n2 von n1 und legt das Ergebnis im 
TOS ab 
dividiert ni durch n2 und legt das Ergebnis im 
TOS ab 


dividiert ni durch n2 und legt den ganzzahlligen 


Rest im TOS ab 


c@ (abis n) 

?(abis.n)* 
schirm 

! (n a usw.) 


holt ein Byte und speichert es im TOS 
wie »C@«, aber mit Ausgabe auf dem Bild- 


speichert Zahl in der Adresse a, die im TOS 


angegeben ist 


Tabelle. Die in diesem Abschnitt neu vorgestellten Befehle und deren 


»Geschwister« 


werte, die wichtige Systemgrößen bein- 
halten. So enthält zum Beispiel »SO« die 
Adresse des Stacks, »DP« den Beginn 
des Wörterbuches und »BASE« den 
Wert der aktuellen Zahlenbasis. 

Der Aufruf einer User-Variablen holt 
jedoch in Forth nicht den Wert, sondern 
die Speicheradresse, unter der der 
Wert zu finden ist. Um den aktuellen 
Wert von »BASE« zu erfahren, brauchen 
wir ein Wort (Anweisung) vom Typ: »Gib 
den Inhalt der Speicherzelle mit der 
Adresse addr aus«. Solch ein Wort stellt 
»c@« (manchmal auch »?«) zur Verfü- 
gung. 

BASE C . 10 OK e 

Diese Anweisung bringt den aktuel- 
len Wert der User-Variablen BASE auf 
den Bildschirm. Um den Wert zu 
ändern, benötigen wir ein Wort vom 
Typ: »Lege den Wert a unter der 
Adresse addr ab«. Dieses Wort lautet 
»!«. Sowohl der Wert »a« als auch die 
Adresse »addr« müssen sich auf dem 
Stack befinden - und zwar in der richti- 
gen Reihenfolge. Nach der Eingabe 
muß die Adresse (in diesem Fall BASE) 
im TOS stehen. 

63 2 BASE ! OK 

 ALLEREIOK 

Die Zahlen 63 und 2 werden auf den 
Stack gelegt, dann die Adresse BASE 
im TOS gespeichert. Das Wort »I« 
ändert die Ausgabefunktion auf Dual- 


Bild 6. »ROT« bringt den dritthöchsten 
Wert in den TOS und schiebt die beiden 
anderen Werte um eins weiter nach unten 


zahlen. Mit ».« erscheint dann die 63 in 
dualer Form (111111) auf dem Bild- 
schirm. Da wir gerade auf Dualzahlen 
umgeschaltet haben, muß jetztauch die 
Eingabe in dualer Form erfolgen. 
9 23 ? CAN'T FIND 

Die Zahlen 9 und 23 sind keine Dual- 
zahlen und deshalb gibt der Compiler 
eine Fehlermeldung (hier »CAN’T 
FIND«) zurück. Mit 
11 BASE ! OK 
schalten wir auf die Zahlenbasis »3« um 
(11 dual ist 3 dez). Da es nun etwas 
kompliziert ist, die richtige Ziffernfolge 
für Dezimalzahlen zu finden (10 dez = 
1010 dual = 101 zur Basis 3), gibt es 
unter Forth das Wort »DECIMAL«, das 
immer wieder zum vertrauten Dezimal- 
system zurückführt. 
DECIMAL OK 

Ein kleines Beispiel zeigt eine beein- 
druckende Lösung eines Problems, das 
in vielen anderen Sprachen nur bedeu- 
tend umständlicher gelöst werden 
kann. 
: DUAL 2 BASE ! ; OK 


: DOPPEL 
20 0 DO CR I DECIMAL . 
I DUAL . LOOP ; OK 


Wir haben zuerst das Wort »DUAL« 
zur Umschaltung auf Dualzahlen defi- 
niert und dann die Anweisung »DOP- 
PEL«. Wie man Wörter bestimmt und 
auch wie die Schleife »DO ... LOOP« 
arbeitet, finden Sie in den folgenden 
Kapiteln. Hier sollen Sie das Programm 
nur eintippen und starten. Nach dem 
Aufruf von »DOPPEL« ergibt sich auf 
dem Bildschirm folgendes Bild: 


(Peter Monadjemi/hg) 
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En de R} 


Forth lernt dazu 


Einen der größten Vorteile von Fortn macht der sehr einfache 
Ausbau seines Wortschatzes aus. Jede Forthersion kann sein 
Benutzer mit neuen, selbstdefinierten Anweisungen erweitern. 


nders als beispielsweise in 

Basic bestehen Forth-Pro- 

gramme nicht aus einer be- 
stimmten Anzahl von Programmzeilen, 
sondern aus Wörtern. Jedes diese Wör- 
ter kann weitere beinhalten, die wie- 
derum neue Wörter enthalten dürfen 
und so weiter. Dieser extrem modulare 
Aufbau führt dazu, daß das eigentliche 
Hauptprogramm letzten Endes aus nur 
einem einzigen Wort bestehen kann. 

Ein solches »Forth-Wort« läßt sich mit 
einem Unterprogramm in Basic oder 
einer Prozedur in Pascal vergleichen. 
Es gibt verschiedene Wege, sich selbst 
solch eine Anweisung zu definieren. 
Die einfachste ist die sogenannte 
»Colondefinition«, bei der das Wort wei- 
tere Wörter enthalten darf, die nach Auf- 
ruf des neuen Worts ausgeführt wer- 
den. Handelt es sich bei diesen Wörtern 
wiederum um Forth-Wörter, dann 
spricht man von SECUNDARIEs. Ein 
Wort, das direkt Maschinencode- 
Routinen aufruft, bezeichnet man als 
PRIMITIVE. Die meisten Wörter des 
Grundwortschatzes von Forth sind 
SECUNDARIES. 

Wie kann man nun solch ein Wort 
selbst definieren? 

Jede Wortdefinition eines SECUN- 
DARIES leitet ein unscheinbarer Dop- 
pelpunkt »:« ein. Er bewirkt unter ande- 
rem, daß das System in den »Compile 
mode« umschaltet. Das hat zur Folge, 
daß alle nun folgenden Anweisungen 
nicht mehr direkt ausgeführt, sondern 
in das Wörterbuch eingetragen werden. 

Unter einem Wörterbuch (englisch 
Dictionary) wird in Forth ein Speicher- 
bereich verstanden, der den Wort- 
schatz der betreffenden Version bein- 
haltet. Jede neue Wortdefinition wird 
nun auch in diesem Wörterbuch ver- 
zeichnet. Das Dictionary selbst ist in 
sogenannte Vokabulare unterteilt. Zwi- 
schen verschiedenen Vokabelberei- 
chen schaltet VOKABULARY NAME 
um. 

Durch Aufruf von NAME wird der 
Vokabelbereich NAME zum CONTEXT- 
VOKABULAR, das heißt dem aktuellen 
Vokabular, in dem die Dictionary- 
Suchläufe zuerst beginnen. Normaler- 
weise ist das Standard-Vokabulary ein- 
geschaltet. Es trägt den Namen Forth. 

Wenn wir jetzt ein neues Wort definie- 
ren, so wird dies in. das »Haupt«- 
Wörterbuch eingetragen. Durch 
»WORDS«, »VLIST« oder einem ande- 


ren, compilerspezifischen Namen kann 
man das überprüfen, denn dieser gibt ja 
den gesamten Inhalt des Wörterbuchs 
aus. Das Wörterbuch baut sich übri- 
gens in Richtung größer werdender 
Adressen auf. Das Ende, also den 
Beginn des freien Arbeitsspeichers, 
kann man mit »HERE« ins »Top of 
Stacks« (TOS) laden. Nun aber zurück 
zu unserem Problem, selbst neue 
Worte zu definieren. 

Anders als in jeder mittelmäßigen 
Basic-Version fehlt in Forth die Quadrat- 
funktion. Sie ist aber relativ einfach zu 
definieren. Die Zahl, welche quadriert 
werden soll, muß zuerst einmal im TOS 
stehen. Dann kopieren wir sie mit DUP 
und multiplizieren beide miteinander. 
Die beiden Wörter, die wir dazu brau- 
chen, kennen Sie schon. 

4 DUP * . 16 OK 
16 DUP * . 256 OK 

Unsere Überlegung scheint zu stim- 
men, denn in beiden Fällen wurde die 
Ausgangszahl quadtiert. 

Um die Quadratfunktion nun im Wör- 
terbuch zu »verewigen«, erweitern wir 
es um das Wort »QUADRAR. Diese 
Funktion soll bei ihrem Aufruf immer 
den aktuellen Wert im TOS quadrieren 
und das Ergebnis dort auch wieder 
ablegen. 

Wie schon erwähnt, leitet ein Doppel- 
punkt die neue Wortdefinition ein. 
Danach folgt der Name der neuen Funk- 
tion, dann die Befehlsfolge. Ein Semiko- 
lon schließt das Ganze ab. Mit 
: QUADRAT DUP *% ; OK 
haben Sie nun den Wortschatz Ihres 
Systems bereichert. Bevor Sie das 
neue Wort aufrufen, müssen Sie aber 
daran denken, daß die Zahl, die qua- 
driert werden soll, im TOS steht. 

12 QUADRAT OK 
berechnet das Quadrat von 12. Das 
Ergebnis 144 bekommen wir mit 

. 144 OK 
auf den Bildschirm. An oberster Stelle 
im Wörterbuch steht nun das neue 
Wort. Falls Ihnen die Ausgabeform zu 
nüchtern ist, dann definieren Sie doch 
mit 

: AUSGABE CR 

.” DIE QUADRATZAHL IST” . ; OK 
eine Ausgaberoutine. Nach dem Aufruf 
von AUSGABE erscheint die gerade 
aktuelle Zahl aus dem TOS. Der Bild- 
schirm sieht dann wie folgt aus: 
12 QUADRAT AUSGABE 
DIE QUADRATZAHL IST 144 


Um nun die Ausgaberoutine in dem 
Wort QUADRAT gleich mit aufzurufen, 
bedarf es einer Neudefinition dieses 
Wortes. Es gibt zwar auch Wege, beste- 
hende Routinen zu verändern, aber das 
lassen wir hier beiseite. Also geben wir 
das Wort schnell noch einmal neu ein. 
: QUADRAT DUP * AUSGABE ; 

? QUADRAT ISN'T UNIQUE 

Lassen Sie sich durch die Fehlermel- 
dung nicht irritieren. Damit teilt Ihnen 
der Compiler nur mit, daß es bereits ein 
Wort mit diesem Namen gab. Durch die 
neue Definition haben Sie es aber 
umbenannt. Rufen Sie jetzt QUADRAT 
auf, und Sie erhalten das gewünschte 
Ergebnis: 

5 QUADRAT 
DIE QUADRATZAHL IST 25 OK 

Ein erneuter Blick ins Wörterbuch 
zeigt, daß jetzt zwei Wörter mit dem 
Namen QUADRAT existieren. Um ein 
Wort zulöschen, benutzt man FORGET. 
FORGET QUADRAT OK 

Damit bleibt nur noch die Frage zu klä- 
ren, welche Version der beiden Worte 
QUADRAT gelöscht wurde. Am einfach- 
sten ist das festzustellen, indem man 
QUADRAT noch einmal aufruft. 

10 QUADRAT OK 

Damit ist klar, daß FORGET die neue- 
ste Version unseres Wortes gelöscht 
hat. Doch damit nicht genug. FORGET 
löscht nicht nur das betreffende Wort, 
sondern auch alle anderen, die später 
definiert wurden. Deshalb sollte man 
FORGET nur sehr vorsichtig einsetzen. 

Der Grund für diese Wirkungsweise 
von FORGET ist leicht zu verstehen, 
wenn man sich vorstellt, daß alle Wörter 
im Wörterbuch durch eine »KETTE« mit- 
einander verbunden sind. Trennen Sie 
die Kette an einer Stelle (etwa durch 
FORGET), so sind auch alle Wörter ver- 
loren, die bis zu diesem Punkt auf der 
Kette aufgereiht wurden. 

Nicht immer läßt Forth das Löschen 
von Wörtern so ohne weiteres zu. Inden 
meisten Forth-Versionen ist der Sprach- 
kern geschützt. Eine User-Variable 
»FENCE« enthält die Adresse, ab der 
ein Löschen durch FORGET nicht mehr 
möglich ist. 

Noch ein Wort zur Namensgebung. 
Hier dürfen Sie Ihrer Kreativität freien 
Lauf lassen, denn als Wortname istjede 
beliebige Zeichenkombination erlaubt, 
die nicht länger als 31 Zeichen ist. 
Lediglich Leerzeichen dürfen nicht 
benutzt werden. 

Daß sich in Forth so ziemlich alles um, 
beziehungsweise neu definieren läßt, 
zeigt das folgende Beispiel: 

86; 0K 

Damit wurde der Zahl 8 kurzerhand 
eine neue »Bedeutung« gegeben. Denn 
auf einmal erhalten Sie mit 
8 QUADRAT . 36 OK 
ein recht merkwürdiges Ergebnis. Forth 
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So wird der Stack durch das Wort KUBIK verändert 


ist, und das werden Sie noch öfters 
feststellen, die Sprache der nahezu 
unbegrenzten Möglichkeiten. 


Um Ihnen die Wortbildung noch ein- 
mal zu verdeutlichen, definieren wir 
noch eine zweite Funktion. 


: KUBIK DUP DUP * * .„ ; 


Mit der Funktion KUBIK wird ab sofort 
die Kubikzahl des Ausgangswerts im 
TOS auf den Bildschirm ausgegeben. 
Dazu verdoppelt DUP die Zahl auf dem 
TOS zweimal und multipliziert dann die 
beiden obersten Werte jeweils mitein- 
ander (»* *«). Der Doppelpunkt und das 
Semikolon umschließen die Definition. 


Mit 

3 KUBIK 27 OK 

bekommen wir das gesuchte Ergebnis. 
100 KUBIK 16960 OK 

ist jedoch ein etwas seltsames Ergeb- 
nis. Hier müssen wir uns wieder den 
Wertebereich unserer Zahlen ins 
Gedächtnis zurückrufen. Denn 
1000000 können wir mit unserem 
Zahlenbereich zwischen -32768 und 
32767 nicht darstellen. 

Nachdem Sie nun eine ganze Menge 
über die Wortdefinition und das Forth- 
Wörterbuch gelernt haben, istes an der 
Zeit, eine Zusammenfassung durchzu- 
führen: 


: - Leitet die Definition eines Forth- 
Wortes ein. 
; - Beendet die Definition eines 


Forth-Wortes. 

FORGET - Löscht alle Wörter bis 
einschließlich dem angegebenen 
aus dem Wörterbuch. 


Die neuen Worte dieses Abschnitts 


- Jede Wortdefinition wird in das Wör- 
terbuch eingetragen. Dabei ist der hier 
besprochene Doppelpunkt nicht der 
einzige Weg, eine Wortdefinition vorzu- 
nehmen. 

- Ein Eintrag in das Wörterbuch hat zur 
Folge, daß das jeweilige Wort Bestand- 
teil des Wortschatzes wird, und somit 
auch, genauso wie die Worte aus dem 
Grundwortschatz, aufgerufen werden 
kann. 

- Durch FORGET NAME wird die letzte 
Definition NAME gelöscht, sowie alle 
danach durchgeführten Definitionen. 


(Peter Monadjemi/hg) 


Forth, entscheiden Sie sich! 


UPN, Rechnen mit dem Stack 
und Wortdefinitionen sind nach 
den letzten Seiten kein Problem 
mehr für Sie. Aber ein Computer- 
Programm muß auch Entschei- 
dungen treffen können. 


ie in fast allen höheren Pro- 
grammiersprachen, kön- 
nen auch in Forth Entschei- 


dungen in der Form »Führe eine Anwei- 
sung nur dann aus, wenn ein Vergleich 
positiv ausfällt« bearbeitet werden. 
Forth stellt dazu zwei Konstruktionen 
zur Verfügung. Zum einen »IF ... ENDIF« 
und zum andern »IF ... ELSE ... ENDIF«. 
Die zweite Anweisung bearbeitet den 
Teil zwischen IF, und ELSE, wenn der 
Vergleich positiv ist. Ist er negativ, dann 
wird der Teil ausgeführt, der zwischen 
ELSE und ENDIF steht. Fast alle Forth- 
Dialekte erlauben anstelle von ENDIF 
auch THEN, wenn auch der erste Weg 
die sinnvollere Bezeichnung darstellt. 

Ein Beispiel verdeutlicht die Arbeits- 
weise von IF ... ENDIF: 
: TEST 9 >IF .”ZU GROSS !” 

ENDIF ; OK 

»TEST« prüft, ob die Zahl im TOS (also 
die zuletzt eingegebene Zahl) größer 
als 9 ist. In diesem Fall wird der Kom- 
mentar »ZU GROSS I!« ausgegeben. 

4 TEST OK 
11 TEST ZU GROSS OK 

Wenn Sie sich nun einmal das zuge- 


hörige Stack-Diagramm (Bild 1) an- 
schauen, dann wird Ihnen der Mecha- 
nismus der IF-ENDIF-Anweisung schnell 
klar. Um einen Vergleich durchzufüh- 
ren, müssen sich zunächst einmal 
beide Zahlen im Stack befinden. Der 


“ Vergleichsoperator »>« holt beide Zah- 


len vom Stack, führt den Vergleich aus 
und legt für den Fall, daß er positiv aus- 
fällt eine »1« und für den Fall, das er 
negativ ausfällt eine »O« im TOS ab. Von 
diesem Flag (deutsch: Flagge oder 
Signal) hängt es ab, ob die zwischen IF 
und ENDIF stehenden Anweisungen 
ausgeführt werden oder nicht. 

Bei der IF-ELSE-ENDIF-Anweisung 
dagegen werden für den Fall, daß der 
Vergleich negativ ausfällt, die Anwei- 
sungen zwischen ELSE und ENDIF 
ausgeführt. Alle erlaubten Vergleichs- 
operatoren zeigt Tabelle 1. 

Wenn Sie die Vergleichsoperatoren 
durchgehen, dann werden Sie sicher 
den Vergleich »ungleich« vermissen. Er 
läßt sich aber leicht durch die Wortfolge 
»= NOT« ersetzen. Das Flag, das bei 
»=« im TOS abgelegt wird, invertiert 
dann »NOT« und wir haben unser Ziel 
erreicht. 

Zwei Punkte müssen Sie aber noch 
bedenken, wenn die Anweisung für 
eine Entscheidung dienen soll. Sie darf 
nie im Direktmodus, sondern nur inner- 
halb einer Wortdefinition stehen. 


Außerdem ist noch zu beachten, daß 
die Zahlen, mit denen man den Ver- 
gleich durchgeführt hat, anschließend 


vom Stack verschwunden sind. Wollen 
Sie weiter mit diesen Werten arbeiten, 
dann müssen Sie sie zuvor kopieren. 

Nun zu einem anderen Thema: Die 
Stärke eines Computers liegt in seiner 
Fähigkeit, bestimmte Anweisungen 
beliebig oft sehr schnell zu wiederho- 
len. Während im normalen Basic hierfür 
nur die FOR-NEXT-Schleife vorhanden 
ist, kennt Forth insgesamt vier verschie- 
dene Anweisungen. Allen gemeinsam 
ist, daß sie nur in Wörtern (also nicht 
direkt) benutzt werden dürfen. Die ein- 
fachste Wiederholfunktion ist »DO 
LOOP«: 

: SCHLEIFE 10 0 DO I. 
LOOP ; OK 

Als Ergebnis bekommen wir 
SCHLEIFE 0123456789 0K 

Zwei Besonderheiten fallen an der 
Schleifenkonstruktion sofort auf: 

- Zuerst wird der End- und dann der 
Anfangswert übergeben. 

- Das Wort »I« holt den Schleifenwert, 
der die bisherige Anzahl der Durchläufe 
angibt, in den TOS. 

Die Bedeutung des Wortes »DO« 
besteht darin, zum einen die Stelle zu 
markieren, zu der nach »LOOP« unter 
Umständen zurückgekehrt wird, und 
dient zum anderen dazu, die beiden 
Schleifenwerte (Start und Ende) auf 
einen weiteren Stack zu transferieren. 
Von diesem war bisher noch nicht die 
Rede, da er für den Anfänger keine 
praktische Bedeutung hat. Die Aufgabe 
dieses »RETURN STACK« besteht 
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darin, wichtige Adressen bei der Aus- 
führung eines Wortes zu verwalten. 
Und auch die Schleifenwerte einer DO- 
LOOP-Anweisung werden hier gespei- 
chert. Damitistauch die Bedeutung des 
Wortes »I« zu verstehen. Diese Anwei- 
sung holt den momentanen Wert des 
»Top Of Return Stack« in den TOS. 

Die DO-LOOP-Anweisung gehört zu 
den sogenannten »definierten Schlei- 
fen«, da die Anzahl der Durchläufe von 
vornherein fest steht. Ganz anders ist 


das bei »BEGIN ... UNTIL«: 
: TEST BEGIN 1 + DUP . 
DUP 100 = 
.” FERTIG !” ; OK 


Hier steht die Anzahl der Durchläufe 
nicht von vornherein fest. Sie hängt viel- 
mehr von einer Bedingung ab. In unse- 
rem Beispiel wird durch »=« geprüft, ob 
der Inhalt des TOS bereits den Wert 
100 erreicht hat. Ist das der Fall, so wird 
im TOS eine 1 als Flag abgelegt. Daran 
erkennt das Wort UNTIL, daß eine 
Anweisung abzubrechen ist. 

Für den Fall, daß der Inhalt des TOS 
100 noch nicht erreicht hat, wird durch 
»=« eine O im TOS abgelegt und 
anschließend werden alle Anweisun- 
gen, die zwischen BEGIN und UNTIL 
liegen, ein weiteres Mal wiederholt. 
Somit handelt es sich bei dieser Anwei- 
sung um eine vom Typ: »Wiederhole so 
lange, bis eine bestimmte Bedingung 
wahr ist.« 

Falls Ihnen dieser Befehl immer noch 
zu undurchsichtig ist, so nehmen Sie 
ein Blatt Papier und zeichnen Sie die 
Stackbelegung bei dem Wort TEST auf. 
Denken Sie daran, daß sowohl durch 
».«, als auch durch »=« der Inhalt des 
TOS vom Stack verschwindet, wenn 
man ihn nicht vorher kopiert hat. 

Noch ein Beispiel für diese Befehls- 
folge: 

: UEBUNG BEGIN CR 

.” DRUECKE EINE TASTE” KEY 

65 = UNTIL ; OK 

Durch KEY wird ein Zeichen von der 
Tastatur gelesen (ähnlich GET in Basic) 
und der dazugehörige ASCII-Wert im 
TOS abgelegt. Dieser wird daraufhin mit 
65 verglichen (ASCIlI-Wert von A ist 
65). Haben Sie tatsächlich A eingege- 
ben, so bricht der Programmlauf ab, 
andernfalls wird er ein weiteres Mal 
durchgeführt. 

Ähnlich wie bei BEGIN-UNTIL liegen 
die Verhältnisse bei der BEGIN- WHILE- 
REPEAT-Anweisung mit dem Uhnter- 
schied, daß die Ausführungs- 
Bedingung bereits vor dem WHILE ste- 
hen muß. Die eigentliche Anweisung 
befindet sich zwischen WHILE und 
REPEAT. Ist die Bedingung nicht erfüllt, 
so wird die Anweisung gar nicht erst 
ausgeführt. 

: TASTE BEGIN KEY 65 = 

WHILE .” VERSUCH'S NOCHMAL ” 

.” NA ENDLICH !” ; OK 


UNTIL 


TASTE B VERSUCH'S NOCHMAL OK 
TASTE A NA ENDLICH ! OK 

KEY bringt wieder den ASCII-Code 
der gerade gedrückten Taste in den 
TOS. »65 =« prüft diesen Wert auf 
Code 65 (für A). Da in diesem Fall im 
TOS eine »1« abgelegt und dadurch die 
Anweisung zwischen WHILE und 
UNTIL nicht ausgeführt werden würde, 
wird der Inhalt des TOS (das Flag) mit 
»0=« invertiert. Wenn im TOS eine O 


liegt, dann verändert »O =« diese in eine” 


1. 

Zum Abschluß dieses Kapitels noch 
eine Wiederholungsanweisung, bei der 
Sie sich keine Gedanken um ein 
Abbruchkriterium machen müssen. 
Denn bei »BEGIN-AGAIN« handelt es 
sich um eine Endlosanweisung. 

: NONSTOP BEGIN 40 EMIT 
AGAIN ; OK 

Nach dem Aufruf von NONSTOP pro- 
duziert Ihr Computer so lange Klammer- 
affen, bis Sie den Strom abschalten 
oder einen Reset durchführen. 

Variablen, ohne die kaum ein Basic- 
oder Pascal-Programm auskommt, 
haben wir bisher eher beiläufig 
erwähnt. Das liegt daran, daß Forth 
(anders als Basic und Pascal) stack- 
orientiert ist. Damitist gemeint, daß sich 
alle Zahlenoperationen auf dem Stack 
abspielen. Demnach könnte man streng 
genommen auf die Variablen völlig ver- 
zichten. In bestimmten Fällen haben 
diese aber doch ihre Bedeutung. Denn 
zum einen ist die Kapazität des Stacks 
begrenzt, und zum anderen ersparen 
Sie sich durch die Verwendung von 
Variablen, beziehungsweise Konstan- 
ten, allzu umständliche Stack-Opera- 
tionen. 

Um mit Konstanten oder Variablen zu 
arbeiten, müssen Sie diese (ähnlich 
Pascal) zuerst einmal definieren und 
ihnen einen Anfangswert zuweisen. 
Dies geschieht durch die Definitions- 
wörter »CONSTANT« und »VARIABLE«. 
O VARIABLE ZAHL OK 

Damit haben wir eine Variable auf den 
Namen Zahl definiert. Beim Aufruf von 


| mt | Tos 
I Sr 


wenn n2 = ni 
wenn n2 < n1 
= 1 wenn n2 > ni 
Die folgenden Operatoren erwarten 
eine Zahl n im Top of Stack, welche 
mit Null verglichen wird. 
[6] =f=1wennn=0O 
10) <f=1wennn<O 
[6] >f=1wennn>O0 


Tabelle 1. Die Vergleichsoperatoren 
brauchen die zwei obersten Stellen 
im Stack 


Bl 


TOS tos| 9 ]|ros TOS TOS 
914]> IF 
Be "24-8- 


EMPTY 
STACK 
EEE Ya BE .- 
Er 
EMPTY 
STACK 


Zahl erhalten Sie nun aber nicht deren 
Wert, sondern lediglich die Adresse, 
unter der dieser Wert im Speicher zu 
finden ist. 

ZAHL . 12345 OK 

Um den eigentlichen Wert zu erfah- 
ren, benutzen wir den schon bekannten 
Befehl »C@« beziehungsweise »?«. 
Seine Bedeutung war: »Hole den Inhalt 
der Speicherzelle, deren Adresse im 
TOS liegt.« Mit 
4 ZAHL ! OK 
weisen wir unserer Variablen ZAHL den 
Wert 4 zu. Zuerstladen wir die 4 und die 
Adresse von ZAHL auf den Stack. Mit 
ZAHL 4 OK 
testen wir, ob die neue Zahl im Speicher 
abgelegt wurde. 

Ein wenig anders schaut es mit den 
Konstanten aus. Hier bringt der Aufruf 
der Konstanten mit Namen ihren Wert 
direkt in den TOS: 

45 CONSTANT WERT OK 
WERT . 45 OK 

Auch der Wert einer Konstanten läßt 
sich ändern, wenn Sie die Adresse ken- 
nen. Als wir weiter vorne die Zahlen- 
basis veränderten, griffen wir auf solch 
eine Variable zurück. Zum Abschluß 
noch ein kleines Zählprogramm, das im 
Hexadezimalsystem bis 100 zählt: 

: HZAEHL 

100 0 DO HEX I. 

DECIMAL ; OK 

Programmieren können Sie in Forth 
jetzt natürlich noch lange nicht. Aber 
Sie kennen die Grundzüge und es steht 
Ihnen nichts im Wege, sich mit offenen 
Augen in das Abenteuer Forth zu stür- 
zen. In der folgenden Tabelle 2 finden 
Sie diesmal nicht die neu besproche- 
nen Befehle, sondern alle diejenigen, 
die Ihr Forth-System haben sollte, aber 
nicht haben muß. Die Erklärung der 
Befehlsworte spornt Sie vielleicht an, 
die Anweisungen auszuprobieren und 
in eigenen Programmen zu verwenden. 
Die Listings in diesem Heft zeigen Ihnen 
weiter, wie man Forth-Programme ent- 
wickelt und realisiert. 

(Peter Monadjemi/hg) 


CR LOOP 


Bild 1. So verändert sich der Stack 
beim Vergleich 
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! Speichert eine Zahl in der 
Adresse an oberster Stack- 
Position 

Dient bei der Zahlenausgabe mit 
Maske für die Zifferndarstellung 
vorzeichenloser doppelt 
genauer Integers 

Beendet die maskierte 
Zahlenausgabe 

Fordert zur Eingabe einer ein- 
fach genauen Integer auf 
Wandelt bei der Zahlenausgabe 
mit Maske Ziffernzeichen in den 
ASCII-Code um 

Dient zum Speichern von Strings 
Vereinbart einen String im 
Arbeitsspeicher 

Entfernt nachlaufende Blanks 
vom String 

Druckt einen String 

Vereinbart einen String-Array 
Vergleicht String-Variable 
Vereinbart eine String-Konstante 
Vereinbart eine String-Variable 
Vertauscht die Werte in String- 
Variablen 

Liefert die Adresse des näch- 
sten Wortes im Eingabestrom 
Leitet einen Kommentar ein 
Liefert das Produkt zweier 
Zahlen \ 
Multipliziert n, mit n, und 
dividiert 

das doppelt genaue Produkt 
durch n, 

Ähnlich wie */; liefert jedoch 
auch den Rest 

Liefert die Summe zweier Zahlen 
Inkrementiert den gespeicherten 
Wert 

Inkrementiert eine Schleifen- 
variable 

Compiliert n ins Wörterbuch 
Subtrahiert n, von n, 
Aktualisiert den Zeichenzähler 
Gibt eine Zahl aus 

Gibt Text aus 

Gibt die Zahl n, im Datenfeld n, 
aus 

Dividiert n, durch n, 

Division mit Quotient und Rest 
»Wahr« falls n < O 

»Wahr« falls n = O 

»Wahr« falls n > O 
Inkrementiert den obersten 
Stack-Eintrag um Eins 
Dekrementiert den obersten 
Stack-Eintrag um Eins 
Multipliziert den obersten 
Stack-Eintrag mit 16 

Speichert eine doppelt genaue 
Integer 

Definiert einen zweidimensio- 
nalen String-Array 

Multipliziert die oberste Integer 
mit 2 

Addiert 2 auf die oberste 
Integer 

Subtrahiert 2 von der obersten 
Integer 

Dividiert die oberste Integer 
durch 2 


$. 
$ARRAY 
$COMPARE 
$CONSTAN 
$VARIABLE 
$XCG 


2$ARRAY 


2* 


2+ 


2- 


2/ 


[won | Beschreibung Stack-Relation won 


na- 2@ Holt eine doppelt genaue Inte- 
ger aus der Adresse 

Definiert einen zweidimensiona- 
len Array 

Definiert eine doppelt 

genaue Konstante 

Definiert einen doppelt 
genauen Integer-Array 

Entfernt die oberste doppelt 
genaue Integer vom Stack 
Dupliziert die oberste doppelt 
genaue Integer auf dem Stack 
Dupliziert die zweite doppelt 
genaue Integer auf dem Stack 
an oberste Stack-Position 
Rotiert die dritte doppelt genaue 
Integer an oberste Stack- 
Position 

Vertauscht die obersten beiden 
doppelt genauen Integers 
Vereinbart eine doppelt genaue 
Variable 

Leitet die Definition eines 
FORTH-Wortes ein 

Beendet die Definition eines 
FORTH-Wortes 

Wird »wahr« falls n, < n, 

Leitet die Zahleneingabe mit 
Maske ein 

Wird »wahr«, falls n, kleiner oder 
gleich n, ist 

Wird »wahr«, falls n, ungleich n, 
ist 

Dupliziert n Speicherwörter 
beginnend bei a, an der 
Adresse a,; Übertragung 
beginnt bei der höchstwertigen 
Adresse 

Ist »wahrs, falls n, gleich n, ist 
Ist »wahr«, falls n, größer oder 
gleich n, ist 

Enthält die Startposition für die 
Untersuchung 

des Eingabestroms 

Überträgt eine Integer auf den 
Kontroll-Stack; benötigt 
entsprechendes R> 

Dupliziert die oberste einfach 
genaue Integer, es sei denn, 
diese ist gleich O 

Holt die an der Adresse gespei- 
cherte einfach genaue Integer 
Ersetzt die oberste einfach 
genaue Integer durch ihren 
Absolutbetrag 

Erweitert den Speicherbereich 
einer Variablen um n Byte 
Bitweises logisches AND 
Vereinbart einen Array 

Legt den ASCII-Wert des ersten 
Zeichens in dem String, der bei 
a beginnt, auf den Stack 
Enthält die Ein-/Ausgaberadix 
Leitet eine Schleife ein 

Füllt Speicherbereiche mit 
Leerzeichen 

Enthält die Adresse des Block- 
puffers für den Eingabestrom 
Überträgt den Block n von der 
Diskette in den Arbeitsspeicher 
und legt dessen Startadresse 
auf den Stack 


2ARRAY 


2CONSTAN 


2DARRAY 


2DROP 


2DUP 


OVER 


2ROT 


2SWAP 


2VARIABLE 


<> 


<CMOVE 
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d, d, -d, d.d, 


d, d, d, -d, d,d, 


d, d,-d.d, 


BUFFER 


[ei 


c@ 


CASEND 
CHR$ 


CMOVE 


COMPILE 
CONSTANT 
CONTEXT 
COUNT 

CR 
CREATE 
CRT 
CURRENT 
D#IN 

D* 


D*/ 


D*/MOD 


EDIT 


ELSE 
EMIT 
EMPTY- , 
BUFFERS 
ERASE 


EXECUTE 


EXIT 


Tabelle 2. Der Befehlssatz, den Ihr Forth-System haben sollte 


Beschreibung Stack-Relation won Beschreibung Stack-Relation 


Wie BLOCK, die Daten werden 
jedoch nicht übertragen 
Speichert das niedrigwertige 
Byte einer einfach genauen 
Integer 

Holt ein Byte und speichert es 
als einfach genaue Integer 
Beendet eine CASE-Anweisung 
Wandelt eine ein Byte lange 
Integer in ihre ASCIl-Darstellung 
um; das Ergebnis steht im tem- 
porären Arbeitsbereich, dessen 
Adresse auf den Stack gelegt 
wird 

Überträgt n Bytes von Adresse 
1 nach Adresse 2; die Übertra- 
gung beginnt bei den niedrig- 
wertigen Adressen 

Nimmt einen Wert in die Wortde- 
finition mit auf , 

Vereinbart eine Konstante mit 
dem Wert n 

Enthält die Adresse des 
Kontext-Vokabulars 

Legt die Anfangsadresse des 
Strings und den String-Zähler 
auf den Stack 

Sendet einen Zeilenvorschub 
Richtet einen Wörterbucheintrag 
ein 

Lenkt die Ausgabe auf den 
Bildschirm 

Enthält die Adresse des aktuel- 
len Wörterbuches 

Fordert zur Eingabe einer dop- 
pelt genauen Integer auf 
Multipliziert doppelt genaue 
Integers 

Multipliziert d, mit d, und divi- 
diert das vierfach genaue Pro- 
dukt anschließend durch d, 
Wie D*/; liefert aber auch den 
Rest 

Addiert zwei doppelt genaue 
Zahlen 

Subtrahiert zwei doppelt genaue 
Zahlen (d, minus d,) 

Liefert den Quotienten 

von d, und d, 

Wie D/, liefert aber auch 

noch den Rest 

Gibt eine doppelt genaue 
Integer aus 

Gibt eine doppelt genaue Inte- 
ger in einem n Zeichen langen 
Datenfeld aus 

Bearbeitet den Block, der vom 
Inhalt von SCR bestimmt wird 
Bearbeitet Block n; n wird in 
SCR gespeichert 

Für Programmverzweigungen 
Gibt ein Zeichen aus 

Markiert alle Puffer als leer 


Setzt n aufeinanderfolgende 
Byte auf den Wert O, beginnend 
mit der Adresse a 

Führt den Wörterbucheintrag 
aus, dessen Adresse auf dem 
Stack liegt 

Beendet die Programmbe- 
arbeitung 


na- 


a,%,n- 


an- 


EXPECT 


FILL 


FIND 
FLUSH 
FORGET 
FORTH 
DO= 


D< 
DABS 


DARRAY 


DECIMAL 
DEFINITIONS 


DEPTH 


DMAX 
DMIN 
DNEGATE 
po 
DRDSECS 
DROP 
DUP 


DWTSECS 
HERE 


IF 
IMMEDIATE 


INDEX 


Liest Zeichen in den Arbeits- 
speicher ein, beginnend bei 
Adresse a, wobei maximal n Zei- 
chen oder bis zum ersten 
Return gelesen wird 

Belegt n aufeinanderfolgende 
Speicherwörter (beginnend bei 
Adresse a) mit dem 

ASCII-Wert n, 

Sucht die Adresse des nächsten 
Wortes im Eingabestrom 
Speichert die markierten Puffer 
auf Diskette 

Löscht alle Wörter bis ein- 
schließlich dem angegebenen 
aus dem Wörterbuch 

Name des Hauptwörterbuches 
Ist »wahr«, wenn der doppelt 
genaue Wert gleich O ist 

Ist »wahr«, wenn d, kleiner d, ist 
Liefert den Absolutwert einer 
doppelt genauen Integer 
Vereinbart einen Array mit dop- 
pelt genauen Integers 

Setzt die Zahlenbasis auf 10 
Macht den Kontext-Wortschatz 
zum aktuellen Wortschatz 
Liefert die Stack-Tiefe in Einhei- 
ten von einfach genauen 
Integers 

Liefert die größere von zwei 
doppelt genauen Integers 
Liefert die kleinere von zwei 
doppelt genauen Integers 

Dreht das Vorzeichen einer dop- 
pelt genauen Integer um 

Leitet eine Schleife ein 

Liest Diskettensektoren 
Entfernt die oberste einfach 
genaue Integer vom Stack 
Dupliziert die oberste einfach 
genaue Integer 

Schreibt Diskettensektoren 
Liefert die Adresse des näch- 
sten verfügbaren 
Wörterbuch-Bytes 

Umwandlung der Zahlenausgabe 
in Hexadezimaldarstellung 

Zur Einfügung von Zeichen bei 
der Zahlenausgabe mit Maske 
Legt den Schleifenindex auf den 
Stack 

Legt den Testwert der Schleife 
auf den Stack 

Für Programmverzweigungen 
Schaltet von Compilierung 

in Ausführung um 

Gibt die erste Zeile von n, 


„Blocks aus, beginnend 


mit Block n, 

Liefert den Index der dynamisch 
übernächsten Schleife auf den 
Stack 


Legt den ASCII-Code des näch- 
sten Eingabezeichens auf den 
Stack 

Gibt den Block aus, dessen 
Nummer in SCR gespeichert ist 
Beendet eine Schleife 

Überträgt die n ersten Zeichen 
des Strings, der bei a beginnt, in 
den temporären Arbeitsbereich 


ann,- 


d--d 
n,n,- 

an, n.n.n,-nf 
n- 


n-nn 


an,n,.n,n,-nf 


an-a, 
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MOD 
MOVE 
MYSELF 


NCASE 
NEGATE 


NOT 

OCTAL 
OTHERWISE 
OVER 

PAD 


PAGE 
PORT 


PRINT 
| QUERY 


QUIT 
R> 


R@ 
RANDOMIZE 


REPEAT 


RIGHT$ 


Tabelle 2. Der Befehlssatz, den Ihr Forth-System haben sollte : 


Schluß 
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Legt die Länge eines Strings auf 
den Stack 

Gibt den Block n aus und legt n 
in SCR ab ; 

Nimmt den Stack-Wert, ohne ihn 


zu interpretieren, in die Gompila- 


tion mit auf 

Lädt den Block n 

Lädt n, Block, beginnend.mit n, 
Inkrementiert den Schlei- 
fenindex 


Doppelt genaues Produkt zweier 


einfach genauer Integers 
Multipliziert d, mit n, und spei- 
chert das Produkt als dreifach 
genaue Integer, welche dann 
durch n, dividiert wird; der Quo- 
tient ist doppelt genau 
Gemischte Addition 

Gemischte Subtraktion 
Gemischte Division 

Wie M/, außer daß sowohl Quo- 
tient als auch Rest geliefert 
werden 

Liefert den größeren von zwei 
Werten 

Überträgt an die Adresse a, 
einen n, Zeichen langen Teil- 
String, der ab der n,ten Zei- 
chenposition des Strings a 
beginnt 

Liefert den kleineren von zwei 
Werten 

Liefert den Rest der Division 
von .Nn,/N, 

Verschiebt n 16 Byte lange 
Speicherwörter, beginnend bei 
a,, nach a, 

Erlaubt rekursive Aufrufe 

Leitet eine CASE-Anweisung ein 
Ersetzt eine Zahl durch die 
negative Zahl mit dem gleichen 
Betrag 

Negiert ein Flag 

Setzt die Ein-/Ausgabebasis für 
Zahlen auf das Oktalsystem 
Allgemeiner Ausgang in CASE- 
Anweisungen 

Dupliziert die zweite Zahl an 
oberste Stack-Position 

Enthält die Anfangsadresse des 
temporären Arbeitsbereichs 
Löscht den Bildschirm 

Legt die Ausgabe sowohl auf 
Bildschirm als auch auf Drucker 
Legt die Ausgabe nur auf den 
Drucker 

Für Zeicheneingabe 

Löscht den Return-Stack 
Überträgt die oberste einfach 
genaue Integer vom Return- 
Stack auf den Parameter-Stack 
Dupliziert die oberste einfach 
genaue Integer vom Return- 
Stack auf den Parameter-Stack 
Initialisiert den Zufallsgenerator 
Für die Programmierung von 
Schleifen 

Überträgt die n letzten Zeichen 
des Strings a in den temporären 
Arbeitsbereich, liefert dessen 
Adresse 


Erzeugt eine Zufallszahl und 
speichert sie in SEED 

Erzeugt eine Zufallszahl 
zwischen 1 undn, 

Legt die n-te einfach genaue 
Integer auf dem Stack an ober- 
ste Stack-Position 

Befördert die dritte einfach 
genäue Integer an oberste 
Stack-Position 

Markiert alle Puffer für nachtfol- 
gende Sicherungen 


Enthält die Adresse des zuletzt 
bearbeiteten Blockpuffers 

Fügt den ASCII-Code des 
Minuszeichens bei Zahlenaus- 
gabe mit Maske ein, falls n 
negativ ist 

Gibt ein Leerzeichen aus 
Vertauscht die beiden obersten 
Stack-Einträge 

Bei Programmverzweigungen 
benötigt 

Gibt n Zeichen beginnend ab 
der Adresse a aus 
Vorzeichenlose Integermulti- 
plikation 

Gibt eine vorzeichenlose Integer 
aus 

Gibt eine vorzeichenlose Integer 
in einem n Stellen breiten 
Datenfeld aus 

Vorzeichenlose Division mit dop- 
pelt genauem Dividenden, liefert 
Quotienten und Rest 

»Wahr« falls u, kleiner u, ist (vor- 
zeichenlose Integers) 

UNTIL Für die Programmierung von 
Schleifen 

UPDATE Markiert alle Blockpuffer als 
gesichert 

VARIABLE | Definiert eine Variable 

VOCABU- Für die Vereinbarung eines 

LARY neuen Wortschatzes 

WHILE Für die Programmierung von 
Schleifen 

WORD Liest Zeichen aus dem Eingabe- 
strom; Trenner ist Zeichen mit 
ASCII-Code n 

XOR Bitweises exklusives ODER 

YIN Fragt nach Y oder N; N liefert 
Wahrheitswert »wahr« 

[ Beendet Compilierung und leitet 
Ausführung ein; wird in Wortdefi- 
nition benötigt 

[COMPILE] | Bewirkt, daß ein Wort mit dem 
Status IMMEDIATE compiliert 
wird 
Beendet Ausführung und fährt 
mit der Compilierung fort 


Tabelle aus »Der Einstieg in Forth«, Markt& Technik Verlag AG, ISBN 3-89090-085-2 


Die Buchstaben der Stack-Relationsspalte bedeuten: 
= Adresse 
= ASCIl-Code 
= doppeltgenaue Zahl 
= Flag 
= ganze Zahl 
= Rest (bei Division) 
= ganzzahliges Ergebnis (bei Division) 
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Professionelle Grafikprogramme 
für Schneider CPC 6128 + Joyce 


DIGITAL 
RESEARCH 


DR Draw: Macht aus Ihren Ideen ein Kunstwerk 

Verwenden Sie DR Draw, um Organisations-Diagramme, Flußdiagramme, Logos, techni- 
sche Zeichnungen, Schaubilder, Platinenentwürfe und jede nur erdenkliche Art von 
Linien- und Formgrafiken zu entwerfen. Und jeder Bestandteil Ihrer Zeichnung kann auf 
vielfältige Weise durch Farben und Schraffuren hervorgehoben werden. 


Einfachste Bedienung 

DR Draw verwendet leichtverständliche Menüs zur Steuerung seiner Funktionen und 
Erstellung einer Zeichnung. Sie können aus vorprogrammierten Figuren wie Kreisen, 
Quadern, Rechtecken, Kreisbögen, Polygonen und Linien auswählen oder Ihre eigenen 
Figuren entwerfen oder die bestehenden verändern. An beliebigen Stellen kann erläu- 
ternder Text in eine Zeichnung eingefügt werden. Außerdem haben Sie die Wahl zwi- 
schen mehreren Schriftarten. 


Flexibilität bei der Gestaltung 

Jeder Teil einer Zeichnung kann auf Tastendruck überarbeitet und verändert werden: 
Figuren können mit Farben oder Mustern gefüllt werden; sie können vergrößert oder ver- 
kleinert oder an eine neue Position verschoben oder kopiert werden. Ebenso können die 
Schriftarten, Größen, Farben und Positionen mit wenigen Tastendrücken geändert 
werden. 


Vergrößerungen und Ausschnittdarstellungen 


Mit Hilfe einer besonderen Funktion von DR Draw können Sie Einzelheiten Ihrer Zeich- 
nung vergrößern, um Details besser bearbeiten zu können. 


Ausgabe auf Papier, Transparentfolie oder Film 

Was immer Sie erstellen, kann gespeichert oder zu Berichts- und Präsentationszwecken 
auf Papier, Transparentfolie oder Film geplottet oder gedruckt werden. DR Draw druckt 
Ihre Zeichnung exakt auf eine DIN-A4-Seite. 


Hardwarevoraussetzungen 

DR Draw läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8256 mit einem oder 
zwei Diskettenlaufwerken. Die Grafiken können auf jedem Drucker oder Plotter ausgege- 
ben werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen Schneider-, Epson- und 
Shinwa-Drucker sowie der Plotter HP7470A. 


Die Fähigkeiten auf einen Blick 

® Erstellung beliebiger Zeichnungen 

® vorprogrammierte Figuren wie Kreise, Quader, Rechtecke, Kreisbögen, Polygone 
und Linien 

® freie Wahl der Gestaltungselemente wie Farben, Muster und Schriftarten 

e Vergrößerungen und Ausschnittdarstellungen 

® Teile einer Zeichnung können kopiert, verschoben oder gelöscht werden 

® Grafiken können gespeichert, geplottet oder gedruckt werden 

© einfache Bedienung durch Menüauswahl 


DM 1 99,-* (sFr. 178,-16S 1890,-*) 


Best.-Nr. MS 613 


In Vorbereitung: 


Fakturierung 


Ein dBASE-Il-Anwenderprogramm, das folgende Möglichkeiten bietet: Angebots- 
schreibung und Rechnungsschreibung, Artikelverwaltung, Adreßverwaltung, Nach- 
kalkulation. Der dokumentierte Quellcode wird für individuelle Programmanpassun- 


gen mitgeliefert. 
DM 94,-* (sFr. 82,-1öS 940,-*) 


Best.-Nr. MS 616 
* inkl. MwSt. Unverbindliche Preisempfehlung 


Markt&dechnik 


DR Gruph 


DR Graph: Präsentationsgrafiken mit professionellem Niveau 

DR Graph ist ein interaktives Softwarepaket, mit dem Sie Ihren Mikrocomputer zur Erstel- 
lung von Geschäftsgrafiken und Text-Charts verwenden können. DR Graph macht es 
leicht, komplexe geschäftliche oder wissenschaftliche Daten in übersichtliche und aus- 
sagekräftige Grafiken zu verwandeln. 


Ein Bild sagt mehr als tausend Worte 

Eine gut dargestellte Grafik weckt das Interesse und die Aufmerksamkeit des angeziel- 
ten Personenkreises eher als andere Kommunikationsarten. Grafisch dargestellte Fak- 
ten können leichter analysiert, verstanden und behalten werden. 


Einfachste Bedienung 

Mit DR Graph können Sie die Grafik dem Computer schnell und leicht beschreiben. Zur 
Erstellung einer Grafik werden die gewünschten Optionen ganz einfach aus übersichtli- 
chen Menüs ausgewählt. DR Graph kann von jedermann bedient werden, der mit einfa- 
chen Grundlagen der Mikrocomputerbedienung vertraut ist. 


Flexibilität bei der Gestaltung 

Zusätzlich zur vorhandenen Computerschrift stehen drei verschiedene Schriften für 
Titelzeilen, Legenden und Anmerkungen zur Verfügung. Auch bei der Gestaltung der 
Grafiken kann aus zahlreichen Linientypen, Linien- und Balkenbreiten und acht Schraffu- 
ren gewählt werden. 


Ansehen, speichern und drucken 

Mit DR Graph können Sie auf dem Bildschirm immer genau sehen, wie Sie Ihre Grafik 
gestalten. Anschließend können Sie sie drucken oder auf Diskette speichern, um sie 
später weiter zu bearbeiten. 


Hardwarevoraussetzungen 

DR Graph läuft auf jedem Schneider CPC 6128 oder Joyce PCW 8256 mit einem oder 
zwei Diskettenlaufwerken. Die Grafiken können auf jedem Drucker oder Plotter ausgege- 
ben werden, für den ein GSX-Treiber verfügbar ist. Dazu zählen Schneider-, Epson- und 
Shinwa-Drucker sowie der Plotter HP7470A. 


Die Fähigkeiten auf einen Blick 


© Linien-Grafiken, Histogramme, Torten-Grafiken, Stufen-Grafiken, Strich- 
Histogramme, Punkte-Grafiken und Text-Grafiken 

© freie Wahl der Gestaltungselemente wie Beschriftungen, Titelzeilen, Legenden, 
Farben, Schriftarten und Ränder 

® frei wählbare Skalierung 

® variable Linien- und Balkenbreite 

® Schnittstelle zu anderen Programmen 

® beliebig positionierbare Anmerkungen 

© Grafiken können gespeichert, geplottet oder gedruckt werden 

© einfache Bedienung durch Menüauswahl 


Best.-Nr. MS 614 


DM 1 99,-* (sFr. 178,-16S 1890,-*) 


Finanz-Buchhaltung 


Das Komplett-Paket für den Schneider CPC 6128 und Joyce. Erstellen von Konten- 
plänen, Umsatzsteuerauswertung und Einnahmen-/Überschußrechnung. Betriebs- 
wirtschaftliche Auswertungen wie Journalschreibung und Kostenstellenrechnung 


möglich. 
DM 194,-* (sFr. 175,-) 


Best.-Nr. MS 615 


Bestellungen im Ausland bitte an 
untenstehende Adressen. 

Schweiz: Markt& Technik Vertriebs AG, 
Kollerstr. 3, CH-6300 Zug, Tel. 042/41 5656 


Diese Markt&Technik-Softwareprodukte erhalten 
Sie in den Fachabteilungen der Kaufhäuser und 
in Computershops. 


Unternehmensbereich Buchverlag 
Hans-Pinsel-Straße 2, 8013 Haar bei München 


Österreich: Ueberreuter Media Handels- 
und Verlagsges. mbH, Alser Straße 24, 
A-1091 Wien, 02 22/48 1538-0 


Forth zum Abtippen 


Gelerntes will auch geübt werden. Wer noch kei- 
nen Forth-Interpreter hat, der findet hier einen, der 
nichts kostet. Einfach eintippen, RUN eingeben 
und mit der ENTER-Taste starten. 


achdem Sie sich jetzt durch viele Seiten Forth hin- 
durchgekämpft haben, wollen Sie Ihre Forth-Pro- 
gramme zum Laufen bringen. Doch gleich einen 
Compiler kaufen, das muß nicht sein. Testen Sie erst einmal 
Ihr Interesse mit diesem kostenlosen Basic-Forth-Interpreter. 
»Basic-Forth V.4« ist vollständig in Basic geschrieben und 


1 ELS 

2 DIM S(88) „R(8R) ,„L(8B) .LOCBO) „IF (GAR) 
3 DIM RB#(88) 

4 FRINT " BASIC-FORTH 
28 REM 

24 ON ERRBR GOTD 29 

28 GOTO 38 

297 FRINT AF,"?" 

38 M=@ 

32 N=2 

68 Kai 

62 INPUT I$ 

63 I1$=1#+" " 

64 L1=8 

7@ L(k)=L1 

7Z LO(EI=LEN (I$) 

74 L1=LO(K) 

180 IF N<B THEN GOTO 106 
184 G0OTO 118 

186 FRINT "STACK EMPTY" 
188 GOTO 30 

118 L(k)=L(E) + 

112 IF L{K)>LOCK) THEN GOTO 132 
114 BE=MIDEF(IF,LCK) ,1) 

11& IF B#=" " THEN GOTO 118 
118 Af=b+ 

128 LiK)=Lik)+i 

22 BF=MIDFCIF,L(K) „i) 

124 IF B$=" “ THEN GOTO 130 
126 Af=Af+Es 

128 GOTO 12 

130 GOTO 200 

132 IF K{Z2 THEN GOTO 68 

124 K=k-1 

135 I$=MID$(I#.1,LD(E)) 

136 L1=LOtk) 

128 GOTO 118 


v.4" 


20@ REM DICTIONARY 
3@8 IF As<>"SGUARE" THEN GOTO 18 
302 B$="DUF * " 

304 I$=14+B# 

306 K=K+1 


388 GOTDO 7% 


310 IF As<>"CUBE" THEN GOTO 328 

5312 B$="DUF SQUARE * " 

5314 I#=I$+B$ 

316 K=K+l 

318 G0TD 78 

328 IF A$i "TEST" THEN GOTD 338 

322 B$="DO PI 10 / R@ * SIN .„. LOOF " 
324 I$=I$t+B$ 


läuft auf beinahe jedem Computer. Spezielle Befehle wurden 
fast völlig weggelassen und erklären sich, wenn, durch ihre 
Anweisungen. Also einfach eingetippt und schon beginnt Ihr 
Forth-Vergnügen. 

Die Profis unter Ihnen werden jetzt sicher schmunzeln. 
Forth-Interpreter in Basic - da geht doch der ganze 
Geschwindigkeitsgewinn in die Binsen. Richtig, aber mit 
Basic-Forth sollen Sie nicht professionell programmieren, 
sondern ausprobieren. Und da ist Basic zum Eingeben eben 
die leichteste Programmiersprache. Wenn dann erst einmal 
Interesse an dieser Sprache geweckt ist, können Sie immer 
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noch auf einen echten Forth-Compiler umsteigen. (hg) 
326 K=K+1 
328 G0OTO 78 
338 REM 
902 IF A$ı>"+" THEN GOTO 918 
994 N=N-1 
986 S(N)=S(N)+StN+1) 
928 GOTO 108 
918 IF Ai >"-" THEN GOTO 920 
912 N=N-1 
9714 S(NI=5(N)-S(N+1) 
91& GOTO 198 
920 IF A$<>"*#" THEN GOTO 930 
922 N=N-1 
9724 S(N)=S(NI*#S(N+1) 
9726 GOTO 100 
930 IF At<>"7/" THEN GOTO 948 
932 N=N-1 
934 S(N)I=5 (N) /SCN+H1) 
936 GOTO i@8 
Fam IF As<>"ABS" THEN GOTO 958 
942 S(ND=ABS(S(N)) 
744 GOTO 188 
758 IF A$«>"ATN" THEN GOTO 9648 
952 S(NI=ATNIS(ND) 
954 GOTO 108 
760 IF A#<i>"COS" THEN GOTO 978 
962 S(N)=COSISt{N)) 
764 GOTO 188 
778 IF A$<>"EXF" THEN GOTO 988 
772 S(NI=EXP (S{N)) 
774 G0TO 100 
F8B IF Ati >"INT" THEN GUTO 998 
982 S{NI=INTIS(ND) 
984 GOTO 1@8 
998 IF A$i>"LOG" THEN GOTO 1008 
792 S{NI=LOG(S(N)) 
794 GOTO 1388 
1208 IF A$<>"RND" THEN GOTG 1818 
1802 S(N)=RND (-N) 
1984 GOTO 1808 
1801@ IF At<>"SGN" THEN GOTO 192% 
1812 S{N)=SGN(S(N)) 
12814 GOTO 108 
1028 IF A$<>"SIN" THEN GOTO 1938 
1922 S(N)=SIN(SiN)) 
1224 GUTO 120 
1032 IF Ati »"SOR" THEN GOTO 19848 
1032 S(NI=SOR (SıN)) 
Listing. Ein Forth-Interpreter zum Abtippen 
APP 
OMPUTER 


S50TD 1800 1231 N=N-1 

IF Ati >"TAN” THEN GOTO 1258 1232 IF 5S(N+1) THEN GOTO 188 
S({NI=TAN(StND DI 1233 FOR I=L.(E) TO LOCK)I-3 

GOTDO 10% 1234 B$=IF(I.I+5) 

IF: A$t:>""" THEN GOTO 1948 1235 IF B$="ELSE" THEN GOTO 1248 
SiNI=S(N) "SiHM+L) 1255 IF B#="THEN" THEN GOTO 1248 
GOTO 198 1237 NEXT 1 

IF Ati >"5?" THEN GOTO 19070 1238 FRINT "IF’" 

FÜR I=1 TION 1237 GO10 3@ 

PRINI S(N-I+1) 1248 1.(kKd3=i+r4 

NEXT I 1241 GOTO 188 

GOTO 108 1242 GOTIO 1808 

IF A$i>"." THEN GOTO 19080 1250 IF A$i>"ELSE" THEN GOTO 1248 
IF Nil THEN GOTO 196 1252 GOTO 1233 

FRINT SiND 1Zz48 IF A$i>"THEN" THEN GOTO 1278 
N=N-1i 1262 GOTO 1980 

GOTO 108 127@ IF As$< >"BEGIN" THEN GOTO 1288 
IF A$<>"DUP" THEN GOTO 12978 1272 M=M+1 

N=N+1 1274 R(M)=L(K) 

S{N)=S(N-1) 1276 GOTO 180 

GOTO 180 1280 IF A$<>"UNTIL" THEN GOTO 1388 
IF A$<>"DROP" THEN GOTO 1188 1282 N=N-1 

N=N-1 1283 IF S(tN+1) THEN GOTO 1288 

GOTO 188 1284 IF S{N+1) THEN GOTO 108 

IF A$«>"SWAP" THEN GOTO 1118 1296 Li(K)=R(M) 

S{N+1)=5(N-1) 1287 GOTO 100 

S{N-1)I=S(N) 1288 M=M-1 

S(N)=S(N+1) 1287 GOTO 180 

GOTO 120 1300 IF A$<>"DO" THEN GOTO 1328 

IF A$<>"OVER" THEN GOTO 1128 1302 M=M+1 

N=N+1 13804 R<M)=L (E) 

S(N)=S(N-2) 1205 M=M+1 

G0OTO 180 1305 R{M3=5S(N-1) 

IF A$i>">R" THEN GOTO 1138 13065 M=M+1 

M=M+1 1387 R(M)I=S(N) 

R(MI=S5(N) 131@ N=N-2 

N=N-I 1312 GÜOTO 188 

GOTO 188 1328 IF As: >"LOOF" THEN GOTO 1348 
IF A$<c>"R>" THEN GOTO 1148 1322 RiM)=R(M) +1 

N=N+1 1324 IF R(M-1)>R{M) THEN GOTO 1338 
S(N)I=R(M) 1324 M=M-3 

M=HM-1 1328 GUIDO 188 

GOTO 1988 1350 LikK)=RıM-2) 

IF At<>"Re" THEN GOTO 1208 1232 GOTO 108 

N=N+1 1340 REM 

S(NI=R(M) 1520 IF At.:"FI" THEN GOTO 1518 
GO0TO 198 1502 N=N+1 

REM 1504 S(ıy)=2.14159 

IF A$«ı.>"=" THEN GOTO 1210 1585 GOIO 104 

N=N-1 1510 IF Ati>"B" THEN G0TO 1520 

IF S(N)=SiN+1) THEN GOTO 12897 1512 NeN+1 

S(N)=8 1514 5iu)=D 

GOTO 10% 15165 GOTO 180 

Ssiw=i 1520 IF A$i >"SIOF" THEN GOTO 1608 
GOTO 1280 1522 SIOr 

IF A$<i>">" THEN GOTO 1220 14.820 NUM=1 

N=N-1 16802 FÜR I=1 TO LEN{A#) 

IF S(N) >S5(N+1) THEN GOTO 1217 1684 IF MID$(A#&.I,1)<"@" OR MID$(A$,I,1) 
S(N)=8 "9" THEN NUM=O 

G0TO 180 1646 IF I=1 AND MIDE(A$,1,1)="-" THEN NU 
S{N)=1 M=1 

GOTO 108 169058 NEXT Is IF NUM=QD THEN PRINT A$:" N 
IF A$<>"<" THEN GOTO 1230 IT DEFINED": 5010 38 

N=N-1 16818 N=eW+t 

IF S(INI<S(N+1) THEN GOTO 1227 1612 S(N)=VÄL (A) 

S(N)=@ 15414 5010 182 

GOTO 180 

S{N)=1 

GOTD 188 

IF A$<.>"IF" THEN GOTO 1258 Listing. Ein Forth-Interpreter zum Abtippen (Schluß) 


KAAPPY 
COMPUTER. 
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Trace-Befehl für FIG-Forth 


Hier wird ein neues, nützliches Forth-Wort vorge- 
stellt, mit dem man den Ablauf anderer Wörter 
schrittweise untersuchen kann. 


darin, es mit den entsprechenden Eingangswerten 

auf dem Stack aufzurufen und dann zu hoffen, daß 
sich kein Fehler eingeschlichen hat. Wenn sich der Computer 
dann noch normal zurückmeldet, der richtige Wert ausgege- 
ben wird und der Stack sich in dem Zustand befindet, in dem 
er sich auch befinden sollte, so kann angenommen werden, 
daß das Wort richtig arbeitet. Manchmal aber — und das 
kommt öfter vor, als man möchte — verliert sich der Computer 
in einem Irrgarten und nichts läuft mehr. In diesem Falle ist es 
sehr nützlich, ein Wort zur Verfügung zu haben, das etwa 
einem TRACE-Befehl in Basic entspricht. Solch ein TRACE 
ist aber nicht ganz einfach zu realisieren. Der Grund dafür ist 
unter anderem darin zu suchen, daß es in Forth nicht nur Wör- 
ter gibt, die nur 2 Byte Platz in dem Parameterfeld beanspru- 
chen, sondern auch ein paar andere, die neben ihrer CFA 
(Code-Feld-Adresse) auch noch Daten ablegen. Dazu gehö- 
ren alle strukturierenden Wörter (IF, ELSE, THEN / DO, LOOP, 
+LOOP / BEGIN, UNTIL, WHILE, REPEAT, AGAIN), die ent- 
weder BRANCH oder auch OBRANCH compilieren und daran 
noch ihre Sprungweite anhängen. Ebenso zählen LIT und 
CLIT dazu, die außer ihrer CFA noch den Wert der Konstan- 
ten eintragen. Nicht zu vergessen auch das Wort ».’«, das 
ganze Texte in das Parameterfeld speichert. 

Alle Wörter, die in irgendeiner Weise den Returnstack 
manipulieren, sind mit besonderer Vorsicht zu behandeln, da 
ein TRACE-Wort diesen Stack selber benötigt. Die Wörter R), 
R, DO, LOOP, +LOOP 1, I, J, K, LEAVE gehören dazu und 
müssen deshalb von TRACE alle gesondert behandelt wer- 
den. Man muß für jedes dieser Wörter eine Routine schrei- 
ben, die an einem eigenen Stack diese Manipulationen ent- 
sprechend dem originalen Programm durchführt. Alle ange- 
gebenen Wörter müssen von sTRACE« gesondert behandelt 
werden. Der ganze Rest aber kann von dem internen Inter- 
preter ausgeführt werden. Für sämtliche Returnstack- 
Manipulationen benötigt man neben einem eigenen Return- 
stack auch noch den entsprechenden Pointer. 


D ie einfachste Art, ein Forth-Wort zu testen, besteht 


ONE-STEP ist 
kein neuer Tanzschritt 


Am einfachsten erscheint es deshalb, TRACE als Rahmen- 
programm aufzufassen, das die Ein- und Ausgaben durch- 
führt und mit dem Anwender kommuniziert. Muß dann einmal 
ein Wort ausgeführt werden, wird ONE-STEP (Listing) aufge- 
rufen, das dann das Wort ausführt, auf das der selbst defi- 
nierte Instruction-Pointer zeigt. 

In dem Wort ONE-STEP sind dann sämtliche Fälle, die nicht 
von dem inneren Interpreter ausgeführt werden können, ein- 
zeln abzuarbeiten. 

Mit dem Wort ONE-STEP können fast alle Forth-Wörter 
getestet werden. Falls es sich bei dem Wort um ein Primitive, 
eine Konstante oder Variable handeln sollte, so wird Ihnen 
das sofort mitgeteilt. Nur Forth-Wörter, die in Highlevel verfaßt 
sind, werden von TRACE auch entsprechend behandelt. 
Wenden Sie TRACE auch mal auf Wörter des Kernals an. 


Dadurch erhalten Sie einen guten Einblick in die Arbeitsweise 
von TRAGE, und Sie lernen so auch sehr gut die Programmie- 
rung in Forth selbst kennen. 

Hier ein paar Beispiele: 


4 TRACE 
© + S-)D D.4 ; 
4 . TRACE D. 


: D.-0. D.R SPACE 4 ; 

4. 0 TRACE D.R 

: D.R )R SWAP OVER DABS (# #S SIGN #) R) OVER 
SPACES TYPE 4 ; 

Sie sehen daran, wie eng verknüpft Forth selbst in so einem 
grundlegenen Wort wie ».« ist. Auch die Decompilereigen- 
schaften von Forth sind hier ein wenig dargestellt. 

TRACE funktioniert so lange als Decompiler, bis ein Wort 
auszuführen ist, das in seinem Verlauf eine Ausgabe durch- 
führt. Diese Aufgabe, die normalerweise als einzige auf dem 
Bildschirm erscheinen würde, steckt jetzt mitten in dem ent- 
schlüsselten Wort und macht es so manchmal etwas proble- 
matisch, den genauen Sourcetext zu erkennen. Weiterhin 
werden alle strukturierenden Wörter nicht angezeigt, son- 
dern nur deren »Run Time Executive« (BRANCH oder 
OBRANCH) und eventuell auch ausgeführt. 

Es kann sein, daß die Version Ihres Forth nicht ganz genau 
mit der übereinstimmt, die wir eingesetzt haben. So ist zum 
Beispiel das Wort CLIT nicht in jeder Version implementiert. 
Es kann sein, daß Sie das Wort DLIT in Ihrem Programm ver- 
treten haben. 


Einfache Anpassung 


Für den Fall, daß Sie kein CLIT haben, lassen Sie die ganze 
Zeile einfach unter den Tisch fallen und tippen gleich ein 
THEN weniger ein. 

Ist das Wort DLIT aber in Ihrer Version enthalten, so müßten 
Sie einfach eine neue Zeile einfügen, ganz der Zeile von CLIT 
entsprechend. Der Unterschied zu CLIT besteht in der Ände- 
rung von: 1. Lesebefehl C@ nach D@ (Liest statt einem Byte 
ein Langwort, 32 Bit), 2. IPOI darf nicht nur um 1 erhöht, son- 
dern muß um 4 inkrementiert werden. 

In dem Falle, daß sonst noch irgendwelche Wörter in Ihrem 
Forth vorhanden sind, die Daten mit in das Parameterfeld mit 
ablegen (dies kommt oft bei Erweiterungen vor, Strings, spe- 
zielle Datenwörter), so müßten Sie diese Wörter selber 
behandeln. Entsprechendes gilt auch für die Returnstack- 
manipulierenden Wörter. 

Nicht anwenden sollten Sie TRACE bei Wörtern, die selbst 
nur zur Definition von anderen Datentypen entwickelt wur- 
den. Insbesondere die (BUILDS .... DOES)-Funktion funktio- 
niert nicht ganz vollständig mit unserem »Trace«. Auch mit 
anderen Wörtern mag es Schwierigkeiten geben, doch diese 
Wörter befinden sich in der Unterzahl. 

Noch ein letzter Hinweis. Der Stackpointer muß nach ord- 
nungsgemäßer Beendigung des Wortes auf O stehen. Jeder 
andere Wert in SPOI würde bei normalem Ablauf durch den 
inneren Interpreter zum Absturz des Systems führen. Den- 
ken Sie bitte auch daran: Wenn das Wort durch »;« beendet 
wird, muß in SPOI eine Null stehen. Deshalb lasse ich den 
Wert dieser Variablen beim Abbruch auch gleich mit 
ausdrucken. 

Für etwaige Anregungen oder Verbesserungsvorschläge 
sind wir dankbar. 

(Bernhard Leikauf/ev) 
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O VARIABLE IPOI 

O VARIABLE SPOI 

O VARIABLE RSTA 38 ALLOT 

: ONE-STEP IPOI @ 

DUP @ ' OBRANCH CFA = 
IF SWAP IF DROP 2 ELSE 

2+ @ THEN IPOI +! ELSE 


DUP @ ' BRANCH CFA = 

IF 2+ @ IPOI +! ELSE 

DUP @ ' LIT CHA = 

IF2+ @DUP . 2 1IPOI +! ELSE 


DUP @ 'CLIT CFA = 
IF 2+C@ DUP . 1 IPOI +! 


DUP @ ' (.'') CHA = 

IF 2+ COUNT DUP 14 IPOI +! TYPE 32 EMIT 
ELSE 
DUP @ ' )R CHA = 

IF DROP RSTA SPOI @+ ! 
2 SPOI+! ELSE 
DUP @'R CFA=0OVER@ ' ICFA=OR 
IF DROP RSTA SPOI @+ 2- @ ELSE 
DUP@'R CHA= 

IF DROP RSTA SPOI @+ 2- @-2 SPOI +! 
ELSE 
DUP @ ' (DO) CFA = IF DROP SWAP RSTA 
SPOI @+ 2! 4 SPOI +! ELSE 
DUP@'I' CA= 

IF DROP RSTA SPOI @ + 4 - @ELSE 
DUP@ 'J CHA = 

IF DROP RSTA SPOI @ + 6 - @ELSE 
DUP@ 'K CHA = 

IF DROP RSTA SPOI @ + 10 - @ELSE 
DUP @ ' LEAVE CA = 

IF DROP RSTA SPOI @ + 2 - DUP @ SWAP 2- 
! ELSE 
DUP @ ' (LOOP) CFA = 

IF RSTA SPOI @ + 2- DUP +! DUP 2- @ 
SWAP @) 

IF 2+ @ IPOI +! 
ELSE DROP -4 SPOI +! 2 IPOI +! 
THEN ELSE 
DUP @ ' (+LOOP) CFA = 

IF RSTA SPOI @ + 2- ROT OVER +!DUP 2- @ 
SWAP @) 

IF 2+ @ IPOI +! 
ELSE DROP -4 SPOI +! 2 IPOI +! 
THEN ELSE 
@ EXECUTE 


THEN THEN THEN THEN THEN THEN THEN THEN 
THEN THEN THEN THEN THEN THEN THEN 
2 IPOI +! 


: TRACE -Find 
IF DROP CFA DUP @ ' ONE-STEP CFA @ = 
IFCR .'' : 
BEGIN IPOI @ @ DUP 2+ NFA ID. 


(Def. Instruction Pointer) 

(Def. Returnstack Pointer) 

(Def. Returnstack für max. 20 Einträge) 

(Hole IP aus IPOI) 

(Wort = OBRANCH) 

(Nimm Flag vom Stack) 

(True Flag. Dann überspringe den Offset False Flag. Addiere den Offset zu IPOI;) 

(führe den Sprung aus) 

(Wort = BRANCH) 

(Addiere den Offset zu IPOI; führe den Sprung immer durch) 

(Wort = LIT+) 

(Hole den 16-Bit-Wert, zeige ihn an und lege ihn auch auf dem Stack ab. Setze IPOI auf das) 
(Wort nach dieser Zahl) 

(Wort = CLIT) 

(Hole den 8-Bit-Wert, zeige ihn an und lege ihn auch auf dem Stack ab. Setze IPOI auf das) 
(Wort nach dieser Zahl) 

(Wort = (.'')) 

(Versetze IPOI auf das Wort hinter dem Text und drucke diesen Text mit »Space« aus) 


(Wort = )R) 

(Speichere den Wert auf dem Stack an die) 

(Adresse, auf die der Stackpointer zeigt und erhöhe dann den Stackpointer um 2) 
(Wort = R oder = I ? dasselbe PRG) 

(Kopiere den Wert, auf den der Stackpointer zeigt, auf den Parameterstack) 

(Wort = R) ) . 

(Hole den obersten Eintrag des Returnstacks auf den P.stack und dekrementiere den) 
(Stackpointer SPOI um 2) 

(Speichere den Schleifenindex und das) 

(Maximum auf dem eigenen R.stack ab) 

(Wort = I') 

(Hole den zweitobersten Eintrag,auf den P.stack) 

(Wort = J) 

(Hole den dritten Eintrag des R.stacks) 

(Wort = K) 

(Hole den fünften Eintrag des R.stacks) 

(Wort = LEAVE) 

(Ändere das Max. der Schleife auf den gegenwärtigen Wert des Schleifenindex (I) ab) 


(Wort) = (LOOP) 
(Inkrementiere den Schleifenindex, Hat er das Max. erreicht?) 


(Führe Sprung zum Schleifenstart aus, wenn I' ) I) 

(Schleifenende erreicht. Verringere Stackpointer) 

(um 4 (Index und Max.. Dann überspringe den Offset zum Schleifenanfang) 
(Wort = (+LOOP) ) 

(Erhöhe den Schleifenparameter um den angegebenen Wert) 

(Ist jetzt das Maximum erreicht oder schon überschritten?) 

(Selbe Operation wie bei (LOOP)) 


(Eventuelle weitere Abweichungen von der Norm wären dann hier fortlaufend einzutragen) 
(Andernfalls ist es ein vom inneren Interpreter) 
(ausführbares Wort und so auch von diesem zu erledigen) 


(Abschluß sämtlicher eröffneter Abfragen, stelle nach Erledigen des Wortes IPOI auf) 
(das nächste zu erledigende Wort). 


'" 2+ DUP NFA ID. IPOI ! O0 SPOI ! 


BEGIN (Warteschleife des Rechners) UNTIL 
' ;S CFA = ?TERMINAL OR IF CR SPOI ? [COMPILE],S THEN 


ONE-STEP 
AGAIN 
ELSE .'' NO HIGH LEVEL '' DROP THEN 
ELSE .'' NOT FOUND '' THEN ; 


Listing. Das vollständige 
»Trace«-Programm. 

Die Kommentare sind 
nicht einzugeben. 
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Turtle-Grafik mit Forth 


Als Beispiel für ein komplexes Programm in Forth 
stellen wir hier ein Grafik-Paket vor. 


bwohl ursprünglich für den C64 mit HES-Forth 
geschrieben, lohnt es sich sicher auch für die Besit- ° 


zer anderer Computer oder anderer Forth-Versio- 
nen, sich mit diesem Grafikpaket etwas näher zu beschäfti- 
gen. HES-Forth ist im wesentlichen ein etwas erweitertes 
FIG-Forth. Zur Anpassung an andere Computer brauchen nur 
die systemspezifischen Teile dieses Programm-Pakets ge- 
ändert werden. 

Im folgenden Text geben wir eine ausführliche Programm- 
beschreibung, die die Arbeit mit diesem Programm erleich- 
tern soll. Das gesamte Paket besteht aus drei Teilen: 

- dem High-Resolution-Graphic-Package 
- der Multi-Color-Graphic 
- den Extras 

Das Programm wird durch die Lade-Screens 02, 03 und 04 
des Main-File geladen. 

Es steht eine hochauflösende Grafikseite mit einer Auflö- 
sung von 320 x 200 Pixel zu Verfügung. Der Punkt (0,0) liegt 
dabei in der linken oberen Ecke. Die Befehle HION und 
HIOFF schalten zwischen dem normalen Arbeitsbildschirm 
und der Grafikseite hin und her. Alle Eingaben können weiter- 
hin im direkten Modus erfolgen. Ein Beispiel sieht so aus: 


HION ( Einschalten der Grafik ) 
14 0 CFILL ( Farben einstellen ) 
HCLEAR ( Bildschirm löschen ) 

0 0 319 199 LINK ( Diagonale ziehen ) 
HIOFF ( Ausschalten der Grafik ) 


Entsprechend der üblichen Umgekehrt Polnischen Nota- 
tion erwarten alle Worte ihre Parameter auf dem Stack. Wich- 
tig sind dabei immer die Leerzeichen (Spaces) zwischen den 
Wörtern. Solange die Grafikseite aktiv ist, sind die Eingaben 
ja nicht sichtbar. 

Bei einem Tippfehleridrückt man entweder RUN/RESTORE 
- dabei wird der Stack und der Arbeitsbildschirm gelöscht, 
nicht aber die Grafikseite - und wiederholt die letzte Eingabe. 
Oder aber man gelangt durch HIOFF zurück auf den Arbeits- 
bildschirm, der die letzten Eingaben zeigt. Der Handler zur 
Adreßberechnung für X-Werte außerhalb (0/319) und Y- 
Werte außerhalb (0/199) steht in XFORM beziehungsweise 
YFORM und kann vom Benutzer abgeändert werden. 
XFORM und YFORM sind als »wrap-aroundk initialisiert, das 
heißt (-1,-1) ist gleich (319,319) etc. 

Die Grafik kann als sequentielle Datei auf Diskette gespei- 
chert werden, und zwar mittels der Befehle HIWRITE und 
HIREAD. Zuvor ist einmal mit »SEQ name« ein Filename fest- 
zulegen. Die beiden Befehle beziehen sich so. lange auf 
name, bis dieser mit SEQ geändert wird. 


Der Aufbau der Datei sieht folgendermaßen aus: 
8 KByte Bit-Maß 


1 Byte Hintergrundfarbe 
1000 Byte Farb-RAM (low) 
1000 Byte Farb-RAM (high) 


PLOT und LINK stehen sowohl als High-Level-Wort wie 
auch als Primitive zur Verfügung. Welche Version geladen 
werden soll, wird mit Scr #02 eingestellt. 

Nun zum Laden: i 
FILE MAIN 
2 LOAD 
FCLOSE 
Der Ladevorgang nimmt etwa vier Minuten in Anspruch. 


Zusätzlich zur normalen hochauflösenden Grafik bietet das 
Paket eine Multi-Color-Grafik mit 160 x 200 doppelt-breiten 
Punkten, wobei jedes Pixel eine von vier möglichen Farben 
haben kann. Das Ein-/Ausschalten nehmen MON (Multi-Color 
ein) und MOÖFF (aus) vor. CFILL erwartet jetzt vier Parameter 
(Farben) auf dem Stack. HCOL wählt die Zeichenfrabe 1,2 
oder 3 aus dem mit MCOL definierten Farb-Set. 

Da alle Tastatur-Eingaben das Farb-RAM (high) beeinflus- 
sen, sollte man im direkten Modus nicht mit mehr als vier Far- 
ben (ändern mit MCOL) arbeiten. ?LOAD veranlaßt beim 
Laden der »Extras« das zusätzliche Einlesen von MPUT und 
MSHAPER. 

Die übrigen Befehle entsprechen den normalen Hires- 
Befehlen. Das Laden der Multi-Color-Grafik erfolgt mit 
FILE MAIN 
3 LOAD 
FCLOSE 
und beansprucht etwa vier Minuten. 

Neben diesen beiden grundsätzlichen Einstellungen findet 
man zusätzlich noch folgende Extras. 


— PAINTER (Zeichenprogramm) 

— SHAPES (der SHAPER erfordert den PAINTER) 
— STRINGS (benötigen die SHAPES) 

— TURTLE (Turtle Grafik 

Painter 


Per Tastatur-Steuerung kann ein einzelner Punkt auf dem 
Bildschirm bewegt werden und Linien zeichnen oder 
löschen. Der Aufruf erfolgt mit »x y PAINT«, worauf der »Zei- 
chenstift« bei (x,y) erscheint. RETURN beendet den Zeichen- 
vorgang, aber die letzten Zeichenkoordinaten verbleiben auf 
dem Stack. So kann man entweder mit UNPLOT den letzten 
Zeichenpunkt löschen oder irgendwelche Zwischenrech- 
nungen, Farbänderungen etc. vornehmen und den PAINTER 
erneut mit PAINT aufrufen. Es wird immer an der letzen Stelle 
weitergezeichnet. 

Zur Steuerung folgende Details: 

- Farbeinstellung: Funktionstasten f1, f3, f5, f7 

- Pen-Up/Pen-Down: G 

- Bewegen des Zeichenpunktes in acht Himmelsrichtungen: 
R,TY,F,H,V,B,N 


Shapes 

Ein Shape ist eine x mal y Punktmatrix, wobei x ein Vielfa- 
ches von 8 ausmacht. Ein 3 x 21-Shape besteht demnach 
aus 24 x 21 Punkten, hat also die Größe eines Sprites. 
SHAPE ist eine Compiler-Erweiterung, die beliebig dimensio- 
nierte Shapes erzeugt. Der Aufruf »x y SHAPE name« defi- 
niert ein x mal y„-SHAPE genannt »name«. Die Eingabe dieses 
Namens bewirkt dann stets den Aufruf. 
3 21 SHAPE PETRA (definiert PETRA) 


PETRA ?S (zeigt PETRAs Datas an) 
PETRA CLEAR (1öscht PETRA) 

PETRA ?S 

HION 


PETRA SHAPER (zeichnet Rahmen um PETRA und 
aktiviert den Painter) 
PETRA 100 100 PUT (zeichnet PETRA) 
PETRA 110 110 PUT 
HIOFF 

Anstelle von »name« kann auch »n SPRITE« stehen, wobei 
n (O=<n<7) sich auf das Sprite mit der Nummer n bezieht. 
Zuvor aber sollten alle Sprite-Pointer mit !POINTER einmal 
gesetzt worden sein. 


Die Shapes (beziehungsweise Sprites) lassen sich mit 
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»name SHAPEWRITE« unter dem mit SEQ definierten Namen 
als sequentielles File ablegen. Ein Beispiel: 

SEQ GIRL 

PETRA SHAPEWRITE (legt ein sequentielles File 
namens GIRL an, dessen 
Punktemuster PETRA entspricht) 

Wird im Multi-Color-Modus gearbeitet, sollten Sie mög- 
lichst MPUT anstatt PUT und MSHAPER statt SHAPER ver- 
wenden. 

Strings 

Diese Anweisung stellt ein kleines String-Paket dar und 
zählt ebenfalls zu den Compiler-Erweiterungen. Strings sind 
wie Variable vor Benutzung zu definieren, also »name«. Ihnen 
stehen dann zwei Eingabevarianten frei: »name INPUT« ent- 
spricht in Basic »GETA« oder »name =$ text«, das 
»A$ = "text”« gleichkommt. Die Ausgabe erfolgt mit »name« 
(Arbeitsbildschirm) oder »name x y PUT$« (Grafikseite). 

»n CHR« verhält sich wie ein 1 x 8-Shape, dessen Punkte- 
muster dem Zeichen mit dem Bildschirm-Code n entspricht. 
Turtle 

Die Turtle-Grafik baut auf dem Hires- und Multi-Color-Paket 
auf und umfaßt alle Grafikbefehle des Commodore-Logo. Es 
beansprucht lediglich 456 Byte (!), was die Leistungsfähig- 
keit von Forth gut illustriert. Die Koordinaten der Turtle stehen 
immer als oberste Zahlen auf dem Stack (Achtung!) , also die 
Richtung der Schildkröte in der Variablen HEADING. Bei der 
Übertragung von Logo-Programmen muß die UPN von Forth 
beachtet werden. Statt »FORWARD 10« erwartet Forth die 10 
auf dem Stack, also »10 FORWARD«. 

Der Punkt (0,0) liegt wie gewohnt in der linken oberen Ecke 
und nicht, wie bei den meisten Logo-Versionen, in der 
Bildschirmmitte. Dies kann der Benutzer durch »; MOVE 
LFORN.. .;« und entsprechende Definition von LFORN nach 
Bedarf ändern. 

Alle Turtle-Befehle können natürlich wie bei Logo abge- 
kürzt werden. Sie schreiben dann statt »10 FORWARD« ein- 
fach »10 FD« und so fort. Die Turtle sollte sich nicht mehr als 
30000 Punkte in jeder Richtung vorwärts bewegen (2-Byte- 
Arithmetik). Der Befehl TURTLE initialisiert die Schildkröte 
und das Farb-RAM, löscht die Grafikseite und sollte nur dann 
aufgerufen werden, wenn man sich das HION ersparen will - 
also nicht von der Grafikseite aus. Ein Beispielprogramm: 

: LINIE 50 FD 90 RT ; 
: QUADRAT LINIE LINIE LINIE LINIE 
: ROSETTE 36 O DO QUADRAT 10 RT 12 FD LOOP ; 


TURTLE ROSETTE : 
Soweit der allgemeine Überblick über die einzelnen, im 
Turtle-Forth enthaltenen Programm-Pakete. 


Die Screens von Turtle-Forth 


SCR #1: nicht verwendet. 

SCR#2 bis 4: Lade-Screens. SCR #2 lädt die normale 
Hires-Grafik, wobei die Befehle PLOT und LINK wahlweise als 
Primitive (SCR #70 bis 77) oder als High-Level (SCR #12 
bis 13 und 20) definiert werden - je nachdem wie die Klam- 
mern in SCR #2 stehen. 

SCR #3 lädt die Multi-Color-Grafik, bei der sowohl der nor- 
male als auch der Multi-Color-Modus zur Auswahl stehen 
kann. Die Umschaltung zwischen den beiden Modi erfolgt Mit 
den Wörtern MON beziehungsweise MOFF. Zu beachten ist, 
daß der Dictionary-Pointer zwischendurch auf 16384 hoch- 
gesetzt wird, um 8 KByte Platz für die Bitmap zu schaffen 
(siehe rechts). SCR # 4 lädt die Extras, die natürlich auch ein- 
zeln zu verwenden sind. 

SCR #5 bis 9: nicht verwendet. 

SCR#10 bis 11: Diese beiden Screens enthalten die 
Installation der hochauflösenden Grafik und müssen dem 


Computertyp angepaßt werden. Die hier vorgestellten Wörter 
gelten für den Commodore 64. 

Zunächst werden 1000 Byte Platz geschaffen, um den 
Bildschirm zwischenzuspeichern. Das bezweckt, daß Sie 
auch bei eingeschalteter Hires-Grafik weiterhin alle Befehle 
im Direktmodus eingeben können. SCREENSWAP besorgt 
die Speicherverschiebung und benutzt das Wort NSWAP 
(adr 1 adr 2 n - ), welches n Byte zwischen den Adressen 
adr, und adr, austauscht. SCRON beziehungsweise 
SCROFF schalten den Videochip ein und aus, um einen sau- 
beren Übergang beim Einschalten der Grafik zu erzielen. 

HION und HIOFF besorgen die Umschaltung auf hochauf- 
lösende Grafik. Falls Sie mit einem anderen Computer als 
dem C64 arbeiten, müssen hier natürlich andere »Pokes« 
stehen, die Sie dem Benutzerhandbuch entnehmen können. 

Falls die Hires eingeschaltet ist, legt HION? ein Flag 
(ungleich Null) auf den Stack, ansonsten eine Null. SCREEN 
teilt dem Bildschirmeditor des Betriebssystems mit, wo der 


Dictionary 


8 KByte Bitmap 


Dictionary 


colour 


FORTH 


screen 


HION 1. Bildschirm aus 
2. Bitmapping ein 
3. SCREENSWAP 
4. Bild.-Editor Reg. 648 
5. Bildschirm ein 


SCREENSWAP 


SCRON (53268)or16 
SCROFF (53265)and239 
HION (53272)or8 
(53265)or32 
(53272)and247 
(53265)and223 


HIOFF 


Die Speicherplatzaufteilung des Grafik-Pakets beim C 64 


FO EUTER 
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Eingabe-Bildschirm liegt. Bei ausgeschalteter Hires befindet 
er sich ab Register 1024 (also Page 4), bei eingeschalteter 
Hires, also nach SCREENSWAP ab Register 4096 (also 
Page 16). 

Bei Forth-Programmen empfiehlt es sich, Wort für Wort ein- 
zugeben und auszutesten. Dann weiß man nämlich sicher, wo 
man steht und spart sich viel Ärger beim Fehlersuchen. Sie 
kennen nun alle Wörter, um mit der hochauflösenden Grafik 
auch umzugehen. 

SCR#12 bis 13: Mit PLOT und UNPLOT setzen oder 
löschen Sie die einzelnen Punkte. -PLOT bewirkt PLOT oder 
UNPLOT je nach Verhältnis der Variablen VPLOT und 
VBREAK. Es wird von LINK benutzt. Dadurch ist auch 
UNLINK einfach als Spezialfall von LINK zu definieren und 
zudem lassen sich alle Linien auch unterbrochen (BREAK) 
darstellen. - 

ADR bewirkt die Adreß-Umrechnung von X/Y-Koordinaten 
in die Registeradresse der Bitmap. 

SCR #14 bis 15: Bevor wir mit der Hires (CIRCLE) fortfah- 
ren, wollen wir die Multi-Color-Grafik installieren. SCR # 14 
und 15 entsprechen bis auf kleine Details SCR # 10 und 11. 

SCR #16 bis 19: Hier wirkt eine trickreiche Programmier- 
Technik. Damit sowohl die Arbeit mit normaler Hires als auch 
mit Multi-Color-Hires möglich ist, sind die meisten Wörter 
zweimal zu definieren. Um den gleichen Namen wieder zu 
verwenden, werden die Wörter vektoriell ausgeführt. 

Zum Beispiel PLOT. Es führt das Wort aus (EXECUTE), das 
in der Variablen '"PLOT steht. Dort befindet sich im normalen 
Hires-Modus die Code-Feld-Adresse (CFA) von PLOT,H im 
Multi-Color-Modus dagegen die CFA von PLOT,M. Das Ein- 
beziehungsweise Ausschalten mit MON und MOFF ändert 
also lediglich die Vektoren 'PLOT ’ADR etc. ab. MCON und 
MCOFF bewirken dabei die eigentlichen »Pokes«, um den 
entsprechende Grafik-Modus einzuschalten. 


2DROP (nı na - ) 


Drop 


3DROP ( nı na nn -) 


2DUP (nınma-nınan na) 


Drop 


SCR #20: Auf dem PLOT-Befehl aufbauend zeichnen wir 
jetzt eine Gerade, das heißt, alle Punkte zwischen zwei Koor- 
dinaten. LINK verwendet, je nachdem, ob die Steigung der 
Geraden mehr als 45 Grad beträgt, LINX oder LINY. Nun gibt 
auch BREAK einen einleuchtenden Sinn. 

SCR #21 bis 23: Um einen Kreis zu zeichnen, benötigen 
wir eine Sinus- oder Cosinus-Funktion. Das scheint schwie- 
rig, da Forth doch keine Fließkommazahlen kennt. 

Wir erzeugen uns jedoch einfach Grad für Grad eine Liste 
der Sinuswerte. (Wegen der Beziehung cos « = sin (90-«) 
kann man sich eine Cosinus-Liste sparen.) Das entschei- 
dende Wort istnun CIRC. Es berechnet aus dem Winkel a die 
Koordinaten x und y unter Benutzung des Radius, der in der 
Variablen RAD stehen soll. ARC zeichnet dann einen Kreis- 
bogen, wobei die mit CIRC gewonnenen Koordinaten mit 
dem Quotienten EPS/100 multipliziert werden, so daß sich 
die Kreise stauchen und dehnen lassen. EPS ist zu 100 initia- 
lisiert. Es entstehen also wirklich Kreise, solange man die 
Exzentrität nicht mit EXCENTER ändert. CIRCLE ist dann nur 
noch ein Spezialfall von ARC. 

SCR#24: SCR#24 demonstriert schön die Forth- 
Philosophie: NGON zeichnet offene, POLYGON geschlos- 
sene Kurvenzüge. Beide benutzen dazu ein Wort namens 
GON. TRIC und REG, also Drei- und Vierecke - Spezialfälle 
geschlossener Kurven - arbeiten also mit POLYGON. QUA- 
DRAT wiederum ist ein Sonderfall von REC. 

SCR #25 bis 27: Hier wird das Wort SYS (axyadr-axy) 
benötigt, das nicht dem FIG-Wortschatz entstammt. Die FIG- 
Definition eines solchen Wortes findet sich im Texteinschub 
»Einbinden von Betriebssystem-Routinen«. SF ist eine 
Stringvariable, die mit SEQ eingelesen und mit .SEQ ausge- 
geben wird. 

SWRITE ruft einige Betriebssystem-Routinen zur sequen- 
tiellen Datenspeicherung auf: 


BE — aim: Definition und Wirkung der ARONBEIEIMeN Nicht-FIG-Wörter 


over over 


2SWP (my nongny - mm nı na) 


: SYSTEM ; 
: 2DROP DROP DROP ; 
: 3DROP DROP a H 
+ 2DUP OVER OVEI 
2 N, >R ROT ir R> ROT ROT ; 


SYSTEM aktiviert bei HES-FORTH ein Vokabular, 
welches das Wort SYS enthält, Wie SYS 
definiert werden kann, zeigt der 
Texteinschub über Betriebssystem-Routinen. 
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$ FFBD Setnam 
$ FFBA Setlfs 
$ FFCO Open 
$ FFC9 _CHKOUT 
SREAD ruft auf: 
$ FFBD Setnam 
$ FFBA Setlfs 
$ FFCO Open 
$ FFC6  CHKIN 
SCLOSE ruft auf: 
$ FFC3 Close 
$ FFCC  Clrchn 


So lassen sich einzelne Bytes (TO FROM) und ganze Spei- 
cherbereiche (TOS FROMS) auf Diskette sequentiell spei- 
chern. Diese Routinen sind Commodore-spezifisch und sind 
auf anderen Computern unbrauchbar. Die Befehle sind aber 
sicherlich für viele C 64-Forth-Programme äußerst nützlich. 

SCR #28: HIWRITE und HIREAD benutzen nun die Fähig- 
keit zu sequentieller Datenspeicherung, um Grafiken zu spei- 
chern und wiederzulesen. Folgende Adreßbereiche können 
bearbeitet werden.: 

1. 8 KByte Bitmap (8192 bis 16383) 

2. Hintergrund (53281) 

3. Bildschirm (1024 bis 2023 beziehungsweise 4096 bis 
5095) 

4. Farbspeicher (55296 bis 56295) 


SCR # 29: nicht verwendet. 

SCR#30 bis 32: Painter-Package (tastaturgesteuertes 
Zeichenprogramm). 

SCR #33 bis 39: nicht verwendet. 

SCR #40 bis 42: Shape-Package (Teil 1). 

SCR #43 bis 44: nicht verwendet. 

SCR #45 bis 46: Shape-Package (Teil 2). 

SCR #47 bis 49: nicht verwendet. 

SCR #50: String-Package, grundsätzliche Definitionen. 

SCR #51 bis 54: nicht verwendet. 

SCR #55 bis 57: String-Package, zusätzliche Funktionen. 

SCR #58 bis 59: nicht verwendet. 

SCR #60 bis 61: Turtle-Package, stellt in nur zwei Screens 
alle für die Turtle-Grafik notwendigen Befehle zusammen. 

SCR #62 bis 69: nicht verwendet. 

SCR # 70 bis 77: Nun lernen Sie die Wörter PLOT und LINK 
auch als Primitive (für C 64) kennen. Dazu benötigen Sie das 
Assembler-Vokabular Ihres FIG-Forth und ein ganzes Stück 
Arbeit, um die Screens einzugeben. Dafür haben Sie dann 
aber auch einen sehr schnellen LINK-Algorithmus. 

XFORM und YFORM passen die Koordinaten an, die 
»außerhalb« liegen, das heißt, die Werte O > x > 319 oder 
02 y> 199, so daß Linien, die auf einer Seite herauslaufen, 
auf der anderen wieder auftauchen. (»Wrap-Around«.) Der 
fortgeschrittene Programmierer kann sich diese Wörter auch 
so abändern, daß die Linie am Rand einfach abbricht, also 
einen maximalen Wert nicht überschreitet (»Clipping«). 
Bemerkenswert ist vielleicht, daß UNLINK den Code von 
LINK abändert, indem es die Adresse von UNPLOTCODE in 
den Code-Body von PLOTIT schreibt und dann einfach LINK 
aufruft. Dies ist eine Programmiertechnik, die sehr mit Vor- 
sicht zu genießen ist! 

Eine Liste aller Befehle mit ihren Wirkungen ist in der 
Tabelle (rechts) enthalten. 

Aufbauend auf dem Grundprogramm können Sie eine Viel- 
zahl eigener Programme verwirklichen. Als Anregung einige 
Beispiele, wie das tastaturgesteuerte Zeichenprogramm 
(PAINTER), das Speichern und Kopieren von beliebigen Bild- 
schirmausschnitten (SHAPES), der Sprite-Generator 
(SHAPER) oder die Logo entlehnte Schildkröte (TURTLE). 
Schließlich können Sie auch Texte (STRINGs) aus dem 
Character-ROM auslesen und in die HiRes einbringen. 

(Andreas Carl/ev) 


(1) HiRes 
HIBASE 
SCROFF 
SCRON 
HION 
HIOFF 
HION? 
HFILL 
HCLEAR 
HCOL 
CFILL 


ADR 
PLOT 
UNPLOT 
?PLOT 
XFORM 


LINK 
UNLINK 


BREAK 
NGON 
POLYGON 


TRIC 
REC 


QUADRAT 
CIRCLE 


ARC 


ANGL 
EXCENTER 


SEQ name 


.SEQ 
SWRITE 
SREAD 
SCLOSE 
TO 

TOS 


FROM 
FROMS 


HIWRITE 


HIREAD 


SHAPEWRITE (- 


SHAPEREAD (- 


.’ 


xy-) 
xy-) 
xy-f) 


xoYo Xıyı -) 
xoyo Xıyı -) 
n-) 


X0Y0+ »Xn-1+ 


n-) 


(xoyo- 


(xoyo Xıyı Xay2 -) 
(xoyo ab—) 


(xoyo a -) 
(xoyord«-) 


(XoJo r &o aı de-) 


xoyora-) 


(2) Multi-Color-Grafik 


alle Befehle wi 


MON 
MOFF 
MFLAG 
CFILL 
MCOL 
HCOL 


( 


(= 
( 
( 
( 
(n- 


=) 
b cıc203 -) 
a -) 


-In-ı1 


Adresse des ersten Bytes 

ausschalten des Video-Chip 

einschalten des Video-Chip 

umschalten auf Grafikbildschirm 

umschalten auf Arbeitsbildschirm 
Grafikbildschirm eingeschaltet? 

füllt die Grafikseite mit dem Byte n 

löscht den Grafikbildschirm 

wählt Zeichenfarbe O0 <n < 15 

füllt den Farbspeicher mit der Hintergrundfarbe 
b und der Zeichenfarbe c 

Wandelt die Koordinaten x, y in die Bitmap- 
Adresse a um 

setzt Zeichenpunkt 

löscht Zeichenpunkt 

Zeichenpunkt gesetzt? 

Handler für Koordinaten, die »außerhalb« 
liegen; 

verbindet zwei Punkte Po und Pı 

löscht die Verbindungslinie zweier Punkte Po 
und Pı 

definiert die Länge der Teile von gebrochenen 
Linien. Ist zun = 30000 initialisiert 


verbindet n Punkte Po bis Pn—ı 


“Xn-1Yn-ı n -)verbindet n Punkte Po bis Pn—ı zu einem 


geschlossenen Kurvenzug 

zeichnet ein Dreieck PoPıP2 

zeichnet ein Rechteck mit der Länge und der 
Höhe b 

zeichnet ein Quadrat mit der Kantenlänge a 
zeichnet einen Kreis um den Mittelpunkt Po mit 
dem Radius r in Schritten von je d « Grad 
zeichnet einen Teilkreis von «o Grad bis a1 
Grad 

zeichnet Radius eines Kreises zum Winkel «& 
bestimmt die Exzentrizität für CIRCLE, ARC 
und ANGL; n= 100 bedeutet rx: ry = 1 

legt Filenamen für folgende Diskettenoperatio- 
nen fest 

zeigt Filenamen an 

öffnet sequentielles Schreibfile 

öffnet sequentielles Lesefile 

schließt sequentielles File 

schreibt Byte b in offenes File 

schreibt n Bytes ab der Adresse a in offenes 
File 

liest Byte b ein 

liest n Bytes ein und speichert sie ab der 
Adresse a 

schreibt 8 KByte HiRes plus 3 KByte Farbinfor- 
mation in sequentielles File 

liest HiResgrafik aus sequentiellem File ein 
speichert Shapes oder Sprites in sequentielles 
File 

liest Shape oder Sprite 


e (1) und zusätzlich: 


schaltet auf Multi-Color-Mode um 

schaltet auf Normal-Mode um 
Multi-Color-Mode eingeschaltet? 

füllt die Farbspeicher 

wählt die drei Zeichenfarben (0 < c < 15) 
wählt aktuelle Farbe für PLOT etc. (n = 1,2,3) 


Die Befehle des Grafik-Pakets 
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Listing »Turtle-Grafik« in Forth (Fortsetzung) 


SCR # 18 >R >R RAD I CY I CX I R> R> SWAP 
t CONT. > 8 DO I CIRC CX @ + SWAP EPS CY @ + R> DA @ + >R 
’ ADR,H CFA VARIABLE ’ADR 9 I CIRC CX @ » SWAP EPS CY @ + R> DA @ - >R 
* ?PLOT,H CFA VARIABLE ’?PLOT 10 LINK DA @ +LOOP ; 
* PLOT,H  CFA VARIABLE "PLOT 11 : CIRCLE 0 360 ROT ARC ; 
* UNPLOT,H CFA VARIABLE ’UNPLOT 12 : ANGL >R RAD ! 2DUP R> CIRC >R + SWAP R> + SWAP LINK ; 
* HCOL,H CFA VARIABLE ’HCOL 13 
° CFILL,H CFA VARIABLE ’CFILL 
ADR 'ADR @ EXECUTE ; SCR # 24 
?PLOT '?PLOT @ EXECUTE ; 
PLOT ’PLOT ® EXECUTE ; 
UNPLOT ’UNPLOT @ EXECUTE ; 
-PLOT VPLOT @ VBREAK @ / 2 NOD 
O= IF PLOT ELSE UNPLOT ENDIF VPLOT DUP @ 1+ SWAP 
: HCOL ’HCOL @ EXECUTE ; 
15 : CFILL ’CFILL @ EXECUTE ; => 


vonnu2un-O©o 


( POLYGON ) 
O VARIABLE B O0 VARIABLE L 


GON 1 DO >R >R 2DUP R> R> 2SWAP LINK LOOP ; 
NGON GON 2DROP ; 
POLYGON ROT ROT >R DUP I SWAP >R ROT GON R> R> LINK ; 
TRIC 3 POLYGON ; 
BBE = So 

2DUP L @ ROT + SWAP 
2DUP B @ 
@ 


2DUP L 
MCON 53270 Ca 16 OR 53270 Ci ; 2DUP B @ 


MCOFF 53270 C@ 239 AND 53270 Ci ; 5 NGON ; 
QUADRAT DUP REC ; 


SCR # 19 
0 t CONT. ) 


vounu2suneOo 


+ 
ROT SWAP - SWAP 


MON MCON ’ PLOT,N CFA ’PLOT ! ” UNPLOT,M CFA ’UNPLOT I 
* HCOL,M CFA *’HCOL 1 ° CFILL,M CFA ’CFILL I 
* ADR,M CFA ’ADR 1 ' ?PLOT,M CFA ’?PLOT ! SCR # 25 
1°’ MFLAG I ; 
: MOFF MCOFF ’ PLOT,H CFA ’PLOT * UNPLOT,H CFA "UNPLOT 
* HCOL.,H CFA ’HCOL ° CFILL,H CFA ’CFILL 1 
" ADR,H CFA ’ADR ° ?PLOT,H CFA ’?PLOT 1 
"MFLAG I ; 


vouausube 


( SEQUENTIELLE FILES ) 
VARIABLE SF 20 ALLOT 


SEQ 34 WORD HERE SF 20 CHOVE ; 
.SEQ SF COUNT TYPE ; 


NAH,S,X SF COUNT + DUP ASCII , SWAP Ci 
1* DUP ASCII S SWAP Ci 
1* DUP ASCII „ SWAP Ci 
lr cı 
SF DUP C@ 4 + SWAP Ci ; 


: NAN,S,W ASCII W NAN,S,X ; 
: TO DUP Oe IF 1 - -1 NSTEP I ELSE 1 + 1 NSTEP 1 ENDIF ; : NANM,S,R ASCII R NAN,S,X ; 


SCR # 20 
( LINK ) 


vounmnu2sunm-o 


O VARIABLE DX O VARIABLE DY O VARIABLE NSTEP 


: LINX DO DUP I DY a DxX @ #/ + 

ROT DUP I + ROT -PLOT SWAP NSTEP @ +LOOP 2DROP ; 
: LINY DO DUP IDX @DYü@ »/ + 

ROT DUP I + ROT SWAP -PLOT SWAP NSTEP @ +LOOP 2DROP ; 


vounu2»unmOo 


# 26 
t CONT. ) 


LINK INIPLOT ROT >R I - DY I SWAP >R I - DX I 
R> R> DX @ ABS DY @ ABS > IF DX @ TO O LINX OS ne 


ELSE SWAP DY @ TO O LINY ENDIF ; j 
UNLINK VBREAK @ >R O VBREAK I LINK R> VBREAK 1 ; Fri e una 5 a Do15 Ci ; 


SWRITE OFFSPRITE CR ." WRITING " „SEO 
de SYSTEM NAN,S,W SF COUNT SWAP 100 /HOD FFBD SYS 

O VARIABLE SINA 175 , 349 , 523 , 698 , 872 , 1045 , 1219 , 1392 a Re ls 

1564 , 1763 , 1908 , 2079 , 2250 , 2419 , 2588 , 2756 , 2924 ee 

3090 , 3256 , 3420 , 3584 „ 3746 , 3907 , 4067 , 4226 , 4384 ; 

BR la man: mia! zen Si, Ds! Si Ten 0 ran u 

x r Y TOS 0 DO DUP I + C@ TO LOOP DROP ; 

7071 , 7193 , 7314 , 7431 , 7547 , 7771 , 7880 , 7986 ; 

8090 , 8192 , 8290 , 8387 , 8480 , 8660 , 8746 , 8829 

8910 , 8988 , 9063 , 9135 , 9205 , 9336 , 9397 , 9455 

9511 9563 9613 9659 ,„ 9703 , 9781 9816 ,„ 9848 

9877 , 9903 , 9925 , 9945 , 9962 , 9986 , 9994 , 9998 

10000 , 


( CONT. ) 


: SREAD OFFSPRITE CR ." READING " .SEO 
SYSTEM NAM,S,R SF COUNT SWAP 100 /MOD FFBD SYS 
3DROP SF DUP Ca 4 - SWAP Ci 
2 8 2 FFBA SYS FFCO SYS 3DROP 
0 2 0 FFC6& SYS 3DROP ; 


SIN@ 2 » SINA + @ 10000 SWAP ; 
coS@ 90 SWAP - SING ; 


SCR # 22 


eoennum22o0n-Oo 


t CIRCLE ) 


© 


: SCLOSE OLDSPRITE SYSTEM 2 0 0 FFC3 SYS FFCC SYS 3DROP ; 


10 
O0 VARIABLE DA O VARIABLE RAD 100 VARIABLE EXC 11 : FROM SYSTEM 0 0 0 FFCF SYS 2DROP ; 


CNORN BEGIN DUP O0 < WHILE 360 + REPEAT “ 2 RRONB..DL.DO: ERDALDISR 2 LCH ERAITORDE 
BEGIN DUP 360 > WHILE 360 - REPEAT ; 14 DECIMAL 
SIN CNORM DUP DUP ABS / SWAP ABS DUP 90 < IF SIN@ ELSE 15 
DUP 180 < IF 180 SWAP - SIN@ ELSE SCR # 28 
DUP 270 < IF 180 - SIN@ -1 » ELSE o { WRITE/READ ) 
360 SWAP - SIN@ -1 » ENDIF ENDIF ENDIF ROT ® ; 
: COS 90 SWAP - SIN ; 


vounuaune-Oo 


: HIWRITE SWRITE 8192 DUP TOS 53281 Ca To 
HION? IF 1024 ELSE 4096 ENDIF 1000 TOS 
55296 1000 TOS SCLOSE ; 

: HIREAD SREAD 8192 DUP FRONS FROM 53281 Ci 
HION? IF 1024 ELSE 4096 ENDIF 1000 FRONS 
55296 1000 FRONS SCLOSE ; 


EPS EXC @ 100 ®/ ; 
EXCENTER EXC I ; 


SCR # 23 


vosunaueuve 


t CONT. > 


: SHAPEWRITE SWRITE »« TOS SCLOSE ; 
O VARIABLE CK 0 VARIABLE CY : SHAPEREAD SREAD * FRONS SCLOSE ; 


+ CIRC RAD @ OVER SIN SWAP »/ RAD @ ROT COS SWAP #/ ; 


: ARC DA I 2DUP > IF DA DUP @ -i1 » SWAP I ENDIF 


SCR # 30 O0 DO I HERE @ MOD O= IF 1 PY +! 16 PX I 
( PAINTER ) 


ELSE 8 PX +1 ENDIF 
O0 VARIABLE OLD PX @ PY @ ADR C@ OVER C! 1+ LOOP DROP ; 
REPON 128 650 Ci ; SHAPER HCLEAR 3DUP FRAHE 17 17 PAINT 
REPOFF O0 650 Ci ; 


2DROP DEFSHAPE ; 
KILL 2DUP UNPLOT ; 
PLOTOVER 2DUP ADR OLD @ SWAP Ci 
DRAW ; 
’ DRAW CFA VARIABLE LASTVECTOR 
’ PLOTOVER CFA VARIABLE PENMODE 
UP/DOWN PENMODE @ LASTVECTOR @ PENMODE ! LASTVECTOR I! ; 


; 
?DOWN ’ PLOTOVER CFA PENNODE @ = ; SCR # 45 
SETMODUS ?DOWN IF LASTVECTOR I ELSE PENNODE ! ENDIF ; 


B 
ı 
B 
: DODRAW ° DRAW CFA SETNODUS 
B 
B 


; SPRITE 2040 + C@ 64 » 3 21 ; 
!POINTER 8 O DO 48 I + 2040 I + Ci LOOP ; 


vounueuneOo 


46 ?LOAD 


t MPUT > 


DOKILL ’ KILL CFA SETHODUS ; 
LASTPLOT >R LASTVECTOR @ EXECUTE R> ; 
NEXTPLOT 2DUP ADR Ca@ OLD ! 2DUP PLOT ; 


: MPUT SY I SX I DY I DX I 0 SWAP 
DX @ DY @ » O DO DUP I + Ci >BIT 8SWAP 
40D0 2 * + DUP 
IF HCOL SX @ SY ® PLOT 
ELSE DROP SX @ Sy @ UNPLOT ENDIF 
1 SX +1 LOOP 
: SLOPE BEGIN KEY DUP 13 = O= WHILE LASTPLOT >R 1+ DUP DX @ MOD O= IF 1 SY +1 
DUP 72 = IF >R SWAP 1+ SWAP R> ENDIF -ADX a» SK +1 
DUP 78 = IF >R 1+ SWAP 1+ SWAP R> ENDIF ENDIF R> LOOP 2DROP ; 
DUP 66 = IF >R 1+ R> ENDIF 
DUP 86 = IF >R 1+ SWAP 1 - SWAP R> ENDIF 
DUP 70 >R SWAP 1 - SWAP R> ENDIF 
DUP 82 >R 1 - SWAP 1 - SWAP R> ENDIF 
DUP 84 >R 1 - R> ENDIF 
DUP 89 >R 1 - SWAP 1+ SWAP R> ENDIF 
DUP 71 UP/DOWN ENDIF SCR # 46 
DUP 133 3 HCOL DODRAW ENDIF 
DUP 134 2 HCOL DODRAW ENDIF 
DUP 135 = IF O HCOL DODRAW ENDIF 
136 = IF DOKILL ENDIF 
NEXTPLOT REPEAT DROP ; 


SCR # 31 
( CONT. ) 


VoNnmnubunMmOo 


vounu2»on-Oo 


t MSHAPER ) 


MFRAME ROT DROP 2+ SWAP 4 =» 2+ SWAP 7 15 2SWAP REC ; 
DEFMSHAPE OVER HERE ! » 16 PX I 15 PY I 


0 DO I HERE @ MOD O= IF 1 PY +1 16 PX I 
ELSE 8 PX +1 ENDIF 
PX @ PY @ ADR,H C@ OVER C! 1+ LOOP DROP ; 


SCR # 32 
[e} ( CONT. ) 
1 
2 : PAINT 2DUP PLOT MSHAPER HCLEAR 3DUP MFRANE 9 17 PAINT 
* DRAW CFA LASTVECTOR I 2DROP DEFNSHAPE ; 
* PLOTOVER CFA PENMODE I! 
REPON SLOPE REPOFF ; 


vounubbDwe-O0 


SCR # 50 
( STRING-PACKAGE ) 


VBN RETURN $ <BUILDS 78 ALLOT DOES> ; 


: INPUTS O IN ! TIB @ 80 EXPECT 34 WORD 
HERE SWAP 80 CHOVE ; 

a =$ 34 WORD HERE SWAP 80 CMOVE ; IMMEDIATE 

( SHAPES ) .® COUNT TYPE ; 


LEN COUNT SWAP DROP ; 


vounusuneDOo 


O VARIABLE PARITY 


SHAPE <BUILDS OVER , DUP , ® ALLOT 

DOES> >RRA + R@ R> 2+ @ ; 
CLEAR « O DO O QVER I + Ci LOOP DROP ; 
?S OVER HERE ! «® O DO I HERE @ MOD Q= 

IF CR ENDIF DUP I + C@ 4 .R LOOP DROP ; 

DIM ROT DROP ; SER 432 
ZAHL? O IN I TIB @ 10 EXPECT 

32 WORD HERE NUMBER DROP ; 
INPUT OVER PARITY ! = O DO I PARITY ® MOD O= IF CR ENDIF 

ZAHL? OVER I + C! LOOP DROP ; 


vounau2unmOo 


( CHAR > 


CODE G@CHAR 254 # LDA, 56334 AND, 56334 STA, 
251 # LDA, 1 AND, 1 STA, 

N BOT LDA, N 1 - STA, 

BOT i1+ LDA, N STA, 

0 # LDA, BOT 1+ STA, TAY, 


# Al N 1 - )Y LDA, BOT STA, 


vounu2uneO 


( CONT. ) 


O VARIABLE SX O VARIABLE SY 4 # LDA, 1 ORA, 1 STA, 
1# 


LDA, 56334 ORA, 56334 STA, 
: >BIT 8 O0 DO 2 » >R I 256 / R> 255 AND LOOP DROP ; 


: 8SWAP 8 O DO HERE I + Ci LOOP 
8 O0 DO HERE I + C&@ LOOP ; 
: PUT SY I SX I DY I DX ı 0 SWAP 
DX @ DY @ » O DO DUP I + C@ >BIT 8SWAP 
8 0 DO SX @ SY @ ROT 
IF PLOT ELSE UNPLOT ENDIF t ASCII-WANDLER ) 
1 5X +1 LOOP 
>R 1+ DUP DX @ MOD O= IF 1 5SY +1 
-8 DX @ » SK +1 : A>S DUP 128 AND IF 127 AND 64 OR ELSE 
ENDIF R> LOOP 2DROP DUP 64 AND O= IF ELSE 
DUP 32 AND IF 95 AND ELSE 
45 ?LOAD 63 AND ENDIF ENDIF ENDIF ; 


’ 


NEXT JMP, END-CODE 


ın 
voynaunroQ 


SCR # 42 
t SHAPER ) 
16 VARIABLE PX 16 VARIABLE PY 


: FRAME ROT DROP 2+ SWAP 8 « 2+ SWAP 15 15 2SWAP REC 


1 

2 

3 : 3DUP >R OVER OVER R ROT ROT R> ; 

4 

5 : DEFSHAPE OVER HERE I » 16 PX I 15 PY I 


.\ PPy K 
COMPUTER 
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SCR # 57 


{) t PUTS ) 

1 

2 53248 CONSTANT CHARBASE 

3 O VARIABLE CHARACTER 6 ALLOT 

4 

5 : CHR 8 » CHARBASE + 

6 8 O0 DO DUP I + @CHAR CHARACTER I + Ci 

7 LOOP DROP CHARACTER 1 8 ; 

8 

9 O VARIABLE CHX O VARIABLE CHY 

10 

11 : PUTS CHY I CHX ! COUNT O DO DUP I + C@ A>S CHR 

12 CHX @ I 8 » + CHY @ PUT 
13 LOOP DROP ; 

14 

15 
SCR # 60 

0 ( TURTLE ) 

i 

2 O0 VARIABLE HEADING 1 VARIABLE PENSTATE 

3 

4 

5 : RIGHT HEADING +1 ; 

6 : LEFT -1 » RIGHT ; 

7 : MOVE 2DUP >R >R 2SWAP R> R> 

8 PENSTATE @ IF LINK ELSE 2DROP 2DROP ENDIF ; 

9 : FORWARD RAD ! 2DUP HEADING @ 90 - CIRC >R + SWAP R> + 
10 SWAP HOVE ; 

11 : BACK 180 RIGHT FORWARD 180 LEFT ; 

12 

13 

14 ne 
15 

SCR # 61 

0 t CONT. ) 

ı 

2 : PENDOWN 1 PENSTATE ! ; 

3 : PENUP O PENSTATE I ; 

4 : SETHEADING HEADING I! ; 

5 : SETX OVER MOVE ; 

6 : SETY >R OVER R> MOVE ; 

7 : SETXY MOVE ; 

8 : HOME O SETHEADING 160 100 MOVE , 

9 : TURTLE HCLEAR HION O SETHEADING MFLAG IF 11 1 0 6 CFILL 
10 80 100 ELSE 11 1 CFILL 160 100 ENDIF ; 

11 

12 : FD FORWARD ; » BK BACK ; 

13 : RT RIGHT ; : LT LEFT ; 

14  : PD PENDOWN ; ı PU PENUP ; 

15  : SETH SETHEADING ; 
SCR # 70 

0 t FORM ) 

1 

2 CODE XFORM BEGIN, SEC, BOT LDA, 64 # SBC, BOT STA, 

3 BOT 1+ LDA, 1 # SBC, BOT 1+ STA, 

4 O< UNTIL, 

5 BEGIN, CLC, BOT LDA, 64 # ADC, BOT STA, 

6 BOT 1* LDA, 1 # ADC, BOT 1+ STA, 

7 0< NOT UNTIL, RTS, END-CODE 

8 

9 CODE YFORM BEGIN, SEC, BOT LDA, 200 # SBC, BOT STA, 

10 BOT 1+ LDA, O0 # SBC, BOT 1+ STA, 

11 0< UNTIL, 
12 BEGIN, CLC, BOT LDA, 200 # ADC, BOT STA, 
13 BOT 1+ LDA, O # ADC, BOT 1+* STA, 
14 O< NOT UNTIL, RTS, END-CODE 
15 -.> 
SCR # 71 

{6} € QUICK-PLOT ) 

1  ASSEMBLER HEX 

20 VARIABLE X O VARIABLE Y N CONSTANT XL 
3 N 1 + CONSTANT XH N 2 + CONSTANT SUML N 3 + CONSTANT SUMH 
4 N 1 - CONSTANT FE 

5 CODE PLOTBODY ’ YFORM JSR, INX, INX, ° XFORM JSR, DEX, DEX, 
6 XSAVE STX, BOT LDY, 

7 BOT 2+ LDA, PHA, BOT 3 + LDA, TAX, PLA, 

8 XL STA, XH STX, TYA, F& # AND, FE STA, SUHL STA, 
9 O0 # LDA, SUMH STA, SUML ASL, SUMH ROL, SUNL ASL, 
10 SUMH ROL, CLC, SUML LDA, FE ADC, SUHL STA, SUNH LDA, 
11 O0 # ADC, SUMH STA, SUML ASL, SUMH ROL, SUML ASL, 
12 SUMH ROL, SUML ASL, SUMH ROL, TYA, 7 # AND, CLC, 
13 SUML ADC, SUML STA, SUMH LDA, O # ADC, SUHH STA, 
14 CLC, XL LDA, F& # AND, SUML ADC, SUML STA, XH LDA, 
15 SUMH ADC, SUNH STA, CLC, O # LDA, SUML ADC, --> 
SCR # 72 

0 t CONT. ) 

1 SUML STA, 20 # LDA, SUMH ADC, SUNMH STA, XL LDA, 7 # AND, 
2 7 # EOR, TAX, 1 # LDA, 

3 BEGIN, .A ASL, DEX, O< UNTIL, .A ROR, 

4 0 # LDY, RTS, END-CODE 

5 

6 CODE PLOTCODE ° PLOTBODY JSR, SUML )Y ORA, 

7  SUML )Y STA, KSAVE LDX, 
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8 INX, INX, INX, INX, RTS, END-CODE 

9 CODE UNPLOTCODE ’ PLOTBODY JSR, FF # EOR, SUML )Y AND, 

10 SUML >Y STA, XSAVE LDX, INX, INX, INX, INX, RTS, END-CODE 

11 CODE ?PLOT * PLOTBODY JSR, SUML )Y AND, XSAVE LDX, 

12 INX, INX, BOT STA, O # LDA, BOT 1+ STA, NEXT JMP, END-CODE 
13 CODE ADR ’ PLOTBODY JSR, XSAVE LDX, INX, INX, 

14 SUML LDA, BOT STA, SUMH LDA, BOT 1+ STA, NEXT JMP, 

15 END-CODE --> 


SCR # 73 
( CONT. ) 


CODE (PLOT) * PLOTCODE JSR, SEC, SUMH LDA, 20 # SBC, SUNH STA, 
SUML LDA, F& # AND, SUML STA, CLC, 

SUMH ROR, SUNL ROR, SUMH ROR, SUML ROR, SUMH ROR, 

SUML ROR, 4 # LDA, SUMH ADC, SUMH STA, SUML )Y LDA, OF # AND, 

SUML )Y STA, COL LDA, .A ASL, .A ASL, .A ASL, „A ASL, SUML )Y 

ORA, SUML )Y STA, RTS, END-CODE 


CODE QPLOT * PLOTCODE JSR, NEXT JMP, END-CODE 
CODE UNPLOT ’ UNPLOTCODE JSR, NEXT JMP, END-CODE 
11 CODE PLOT ' (PLOT) JSR, NEXT JMP, END-CODE 


- 
ovounusun- Oo 


12 

13 : INIPLOT ; : -PLOT PLOT ; : VBREAK ; : BREAK DROP ; 

14 

15 _DECIMAL 
SCR # 74 

[e) t QUICK-LINK ) HEX 

1 

2 O VARIABLE XO O VARIABLE YO O VARIABLE Xi O VARIABLE Yı 
3 0 VARIABLE OF O VARIABLE CT O VARIABLE DX O0 VARIABLE DY 
4 0 VARIABLE IX O VARIABLE IY O VARIABLE AX O VARIABLE AY 
5 

6 

7 CODE PLOTIT XSAVE LDX, 

:} YO LDA, BOT STA, YO 1+ LDA, BOT 1+ STA, 

3 XO LDA, BOT 2+ STA, KO 1+ LDA, BOT 3 + STA, 

10 * (PLOT) JSR, RTS, END-CODE 

11 

12 

13 

14 “2 

15 
SCR # 75 


[0] t.CONT. ) 

1 CODE +STEP SEC, OF LDA, DX SBC, OF STA, 

2 OF 1+ LDA, DX 1+ SBC, OF 1+ STA, 

3 AY LDA, O< IF, SEC, XO LDA, 1 # SBC, XO STA, 

4 Xx0 1+* LDA, O # SBC, XO 1+ STA, ELSE, 
5 CLC, X0 LDA, AY ADC, XO STA, 

6 XO 1+ LDA, O # ADC, XO 1+ STA, ENDIF, 
7 IY LDA, 0< IF, SEC, YO LDA, 1 # SBC, YO STA, 

8& YO 1+ LDA, O # SBC, YO 1+ STA, ELSE, 
) CLC, YO LDA, IY ADC, YO STA, 

10 YO 1* LDA, O # ADC, YO 1+ STA, ENDIF, 
11 RTS, END-CODE 

12 

13 

14 

15 


ı K<->Y DX @ DY @ DK ! DY I 
IX @AY ı IY@aaX ! 


0 DUP IX I IY I; --> 
SCR # 76 
0 t CONT. » 
1 CODE LOP 
2 IX LDA, O< IF, SEC, XO LDA, 1 # SBC, XO STA, XO 1+ LDA, 
3 0 # SBC, XO 1+ STA, ELSE, CLC, XO ADC, XO STA, XO 1+ LDA, 
4 0 # ADC, XO 1+ STA, ENDIF, 
5 AX LDA, O< IF, SEC, YO LDA, 1 # SBC, YO STA, YO 1+ LDA, 
6 0 # SBC, YO 1+ STA, ELSE, CLC, YO ADC, YO STA, YO 1+ LDA, 
70% ADC, YO 1+ STA, ENDIF, 
8 CLC, OF LDA, DY ADC, OF STA, OF 1+ LDA, DY 1+ ADC, OF 1+ STA, 
9 CT INC, O= IF, CT 1+ INC, ENDIF, 


11 OF 1+ LDA, DX 1+ CHP, CS IF, O= NOT IF, ’ +STEP JSR, ELSE, 
12 DX LDA, OF CHP, CS NOT IF, ’ +STEP JSR, ENDIF, ENDIF, ENDIF, 
13 * PLOTIT JSR, RTS, END-CODE 


14 Per 
15 
SCR # 77 

() t CONT.. > 

1 CODE LINKCODE DEX, DEX, DEX, DEX, XSAVE STX, ’ PLOTIT JSR, 

2 BEGIN, ’ LOP JSR, 

3 O0 # LDX, CT 1+ LDA, DX 1+ CMP, CS NOT IF, INK, 

4 ELSE, DX LDA, CT CHP, CS IF, INX, ENDIF, ENDIF, 

5 TXA, O= UNTIL, XSAVE LDX, INX, INX, INX, INX, 

6 NEXT JMP, END-CODE 

7 

8 : LINK Yi I X1 I YO 1 KO 1 O DUP AY I AX I 

9 Kl @ XO @ ZDUP > IF 1 IX ! ELSE -1 IX ! SWAP ENDIF - DX ! 
10 Yı @ YO @ 2DUP > IF 1 IY I ELSE -1 IY ! SWAP ENDIF - DY 
11 DX @ DY @ > O= IF X<->Y ENDIF DX @ 2 / OF ! 1 CT! 
12 LINKCODE ; 

13 : UNLINK * UNPLOTCODE ' PLOTIT 17 + I LINK 

14 " (PLOT) "PLOTIT 17% 1 5 DECINAL 

15 


Listing »Turtle-Grafik« in Forth (Schluß) 


x=pert, ein Mini- 
Experten-System in Forth 


x-pert ist ein Mini-Experten-System, das bis zu 
2512 Menü- oder Antwort-Blöcke mit 31 Byte Text 
undbis zu je zehn Menü-erzweigungen zuläßt. Es 
bestehen Möglichkeiten zur Erweiterung, Ände- 
rung, zum Löschen und zur Mehrfachnutzung von 
Menüs und Antworten. Der Editor ist auch direkt 
einsetzbar. 


er Versuch, ein Experten-System auf einem Heim- 

computer zu realisieren, scheitert meist an der gerin- 

gen Speicherkapazität oder an den extrem langen 
Reaktionszeiten des Diskettenlaufwerks beim Suchen von 
Datensätzen. Einen vertretbaren Kompromiß gestattet die 
Programmiersprache Forth, die durch ihr virtuelles Speicher- 
konzept fast die gesamte Diskette als RAM nutzt. Ein reines 
Assembler-Programm erlaubt zwar kürzere Verarbeitungs- 
zeiten, hält das System aber nicht für Modifikationen und 
Erweiterungen offen. 

In der hier vorgeschlagenen Lösung für den Commodore 
64, enthält jeder Datenblock 31 Zeichen Text undbis zuzehn 
Verzweigungen. Eine Modifikation des Forth-Wortes »r/w« 
(scr# 8,line# 1) erlaubt es, maximal 162 screens auf eine 
Diskette zu schreiben. So stehen insgesamt 2512 Daten- 
blöcke zur Verfügung. Um einen direkten Einblick und somit 
auch direkte Änderungsmöglichkeiten zu schaffen, werden 
alle Daten im ASCII-Code gespeichert, wobei die Nummern 
der Folgeblöcke als hexadezimale Zahlen erscheinen. So 
müssen auch alle Eingaben im hexadezimalen Modus erfol- 
gen. 

Neben den üblichen Variationen einen Entscheidungs- 
baum aufzubauen und zu verändern, erlaubt das vorgestellte 
System bestehende Menüs oder Antworten in neue Menüs 
einzufügen. Das führt zwar zu einer Platzersparnis, doch 
wächst damit die Gefahr der Verfilzung der Äste oder es führt 
zu Endlosschleifen bei der Darstellung der Baumstruktur. 

Im folgenden sollen die neuen, von unserem Mini-System 
angebotenen Wörter erklärt werden (vergleiche Listing 1). 
System-Start 

System mit »7 load« von der Programm-Diskette laden. 
Danach wird eine Daten-Diskette angefordert. 

Oder »x-pert« (==> ) eingeben (nach erstmaliger Compi- 
lation). Das System wird neu gestartet, ohne eventuell neue 
oder veränderte Daten aus dem Disk-Buffer zu übernehmen. 
Beenden der Arbeit 

Nach jeder Sicherung der Daten mit »save« oder »start« 
kann die Bearbeitung einer Diskette beziehungsweise einer 
Datei abgeschlossen werden. Das Leuchten der LED am 
Laufwerk ist ohne Bedeutung. Ein Abschluß mit »done« ist 
ebenfalls möglich. 

Zwischensicherung ohne Protokollveränderung 
save ( ==>) 

Die Datenblöcke im Disketten-Puffer werden auf die Dis- 
kette geschrieben und die Bearbeitung vor dem aktuellen 
Menü fortgesetzt. 
done ( == 

Hat die gleiche Wirkung wie »save«, ruft jedoch kein neues 
Menü auf. 

Zwischensicherung mit Protokollneustart 
start ( ==>) 
Die Datenblöcke werden im Disketten-Puffer auf die Dis- 


kette geschrieben und die Bearbeitung mit neuer Protokollie- 
rung startet beim aktuellen Menü. 

Neue Datendiskette einrichten 

new-disk ( == 

Dieser Vorgang dauert etwa 25 Minuten. Beim Aufruf muß 
eine eingerichtete Datendiskette oder die Programmdiskette 
im Laufwerk sein. Bei Aufforderung legt man die neue Dis- 
kette ein. Es wird eine Titelzeile angefordert und dann mit die- 
ser Datei gestartet. 

Diskette aufräumen 
verify ( ==>) 

Ungenutzte Blöcke werden freigegeben. Dieser Vorgang 
wird mit zunehmender Anzahl von Daten immer zeitrauben- 
der. Man kann ihn auf dem Bildschirm beobachten. Ein fehler- 
haftes Ändern mit dem Editor kann »verify« nicht immer korri- 
gieren. 

Menü anwählen 
t(Blocknummer ==>) 

Das Menü beziehungsweise die Antwort mit der eingege- 
benen Blocknummer erscheint. Die Eingabe kann durch die 
Positionierung des Cursors unter die entsprechende Menü- 
zeile erfolgen. 

Rückwärtsschritt 
-( ==>) 

Es erfolgt die Rückkehr zum vorher aufgerufenen Menü. 
Die Ebene wird vermindert, im Protokoll sind jedoch alle 
Schritte festgehalten. »—-« dient unter anderem dazu, zum 
Editor zurückzukehren. 

Block zum Menü hinzufügen 
Neueintrag 
x (= 

Sofern im Menü und auf der Diskette Platz ist, wird der 
durch Unterstrich angeforderte Text als neue Menüzeile an 
der ersten freien Stelle ins Menü eingefügt. 

Bestehenden Block einfügen 
x+! (Blocknummer ==>) 

Der mit Blocknummer angesprochene Block wird in das 
aktuelle Menü eingefügt, sofern noch Platz vorhanden ist. 
Menü zwischenschieben 
x- ( Blocknummer ==>) 

Zwischen das aktuelle Menü und die angewählte Menü- 
zeile fügt sich ein Menü ein. Der Text wird durch Unterstrei- 
chen angefordert. 

Antwort löschen 
x- ( Blocknummer ==>) 

Der Block wird freigegeben, sofern es sich um einen 
Antwortblock handelt. 

Menü löschen 

Ein Menü muß, bevor es gelöscht werden kann, mit 
x= ( Blocknummer ===>) 
zum Antwortblock umgewandelt werden. Wenn keine Folge- 
blöcke vorliegen, wird das Menü laut Blocknummer zur 
Antwort. 

Menü in Antwort wandeln 
x= ( Blocknummer ==>) 

Wenn keine Folgeblöcke vorliegen, wandelt sich das Menü 
zur Antwort. 

Text ändern 
corr ( Blocknummer ==>) 


Der im angewählten Block gespeicherte Text kann erneut 
eingegeben werden. 


( Eon I: 
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Direktes Ändern mit dem Editor 

Die reine ASCII-Darstellung ermöglicht alle Blöcke direkt zu 
ändern. Natürlich ist hierbei besondere Vorsicht geboten, da 
man leicht Schleifen oder falsche Verknüpfungen schaffen 
kann, die später kaum zu entwirren sind. 
Hilfe zum Finden eines Blocks 
scr?  ( Blocknummer ==>) 


Es werden die Screen- und Zeilennummer zur hexadezimal 
eingegebenen Blocknummer dezimal angezeigt und in den 
Dezimal-Modus umgeschaltet. 

Bildschirmprotokoll 
prot ==>) 

Das Protokoll der bisherigen Abfragen wird nach Ebenen 
gestaffelt auf dem Bildschirm ausgegeben. 


Si 


fe 
Li 
In 


zz 

[5] 

Ai un ‘ 

= Fo Dmuzkler | 

= 4 * ass 4 # Lox. 

4 Ftba isr, < SETLFS > 

= Erb] >, % SE EMRINIS 

[= rtch is, % OFEN 

v fe29 Jst, 5 CHRIUT 

= mesch Imre. 

2 Endes - 
19: en & ==> b 2 
11 «& ScIT- -HEX in hex-Wert wandeln % 
iz 1 Fenmmush dur 20 = if drop 8 else 
1.3 33 — dur a > if 7 - endif endif 
14 


Ausdruck des Protokolls 
iprot ( ==>) 

Geschachtelter Ausdruck der bisher aufgerufenen Menüs 
und Antworten. 

Ausdruck der Gesamtdatei 
prints) (== 

Alle belegten Datenblöcke werden in numerischer Reihen- 
folge mit Blocknummer, Text, Blockkennung und den Num- 
mern der Folgeblöcke ausgedruckt. 

Ausdruck der Baumstruktur 
baum ( ==>) 

Beginnend ab dem aktuellen Menü als Stamm, wird die 
Baumstruktur in Form einer Gliederung ausgedruckt. Durch 
manuelle Menü-Verknüpfungen entstandene Schleifen füh- 
ren zum Stack-Überlauf und Systemabsturz. 

Beschreibung der einzelnen Datenblöcke 


a: Bytes Inhalt 
1 
> 00-1e 31 Byte Text 
Ei 1f Blocktyp-Kennung 
& -: freier Block 
5 =: Antwort-Block 
E >: Menü-Block 
3 v: Verwaltungs-Block 
5 20-3e zehn Folgeblock-Nummern jeweils drei 
1 isE in ASOII-Zeichen als Hexadezimal-Zahl. Dieses 
= 53: 5 e Sin = ol a Verfahren ist platzsparend und gestattet 
4 alle Menus-Feilen belest eine direkte Editierung. 
EB fee. nn ae aaa ee en 3f unbenutzt: blank 
wi 20 unbenutzt: Punkt 
Bi“ Warjablie mg Konz karte X 
1 forth det inikions Fuss 
2 95 emit „" losadina: x-kert" or or 
> 2 yarmiable mer © Hummer des akkaellen Mermae-Blocks 
+ Moss jable "nr 
IE (Ss) "-jable manhı 
E 1 Misble adar  ZuwischenzPeicher . 
T 5} “ij abl ee BED Er le =h-Esmeich 2 
ba Des] anfans © erster Dater-Elock 2 
ee £ ende ‘ letzter Daten-Elock > 
iä as) . bis “ letzter benukzber Daber-Block 
11 [s) zu ie Her erEbers 
i2 „ac zu, ü MaPhik-Bereich 2 
13 15) “ar \ 5 Listing 1. »x-pert«, 
14 base 1,nt \ F olge GraPhik-Eereich> ein Mini-Expertensystem 
15 : mia mine | 
scr “ 
S Pos Verwaltungsblock-Beschreibung 
3 BR Blocknummer 31 <hex> 
4 code Prt Dr. j \ mm"; a Bytes Inhalt 
5% Au=9abe „ 
£ Jam, 00-1e "Verwaltungsblock’ 
7 mr + 1f y’ 
= end-ande Y Se 
2: prtofft cr Prbuf 20 5 
1 : H en aphiz &clear » 21-23 erster Datenblock 
: van ==>" 4 ) 
13 € E: a nn lessehen y 24-26 letzter Datenblock 
12 1 Fermugh block dur 49 28 fill 27-29 letzter belegter Block 
rn f+ Zei zwar ! update 2a. Rest ungenutzt 


x-pert ist in Forth 64 für den Commodore 64 geschrieben, 
sollte aber mit nur geringfügigen Modifikationen auf jedem 
anderen Computer unter FIG-Forth laufen. 

Speziell für die Besitzer von Forth 64 sind in Listing 2 die 
Screens 40 bis 43 gedacht. Sie enthalten eine verbesserte 
Version der in Forth 64 fehlerhaften Wörter »triad« und eine 
verbesserte Version des Worts »dump«. 

Diese Abänderung belegt keinen weiteren Speicherplatz, 
da sie in das bestehende System hineingeschrieben wird. 

Allerdings ist sie daher auch wirklich nur mit Forth 64 zu 
verwenden, was jedoch nicht weiter schlimm ist, da diese 
Fehler ja ebenfalls spezifisch sind. 
(Peter Klinghardt/ev) 
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Listing 2. Zwei Verbesserungen zu Forth 64 (Schluß) 


Am Anfang war das Wort.. 


Programmieren in Forth bedeutet, neue Wörter zu 
schaffen, indem bereits definierte Befehle zu 
immer komplexeren Gruppen zusammengefaßt 
werden. 


programmiert, der programmiert nicht; der schafft sich 
neue Wörter, wobei am Ende oft ein einziges Wort 
steht, das dann das fertige Programm repräsentiert. 

Diese Art des Programmierens bietet gegenüber der her- 
kömmlichen Unterprogramm-Technik erhebliche Vorteile: 

- Jedes Wort ist quasi eine Spracherweiterung, das heißt das 
Computersystem wächst mit dem Programmierer. Je mehr 
man in Forth programmiert hat, desto häufiger kann man auf 
Befehle zurückgreifen, die man Monate zuvor geschaffen 
hat. Dadurch nimmt die Produktivität des Programmierers 
enorm zu. 

- Es ist einfacher, einzelne Wörter auf ihre Richtigkeit zu 
überprüfen, als ein ganzes Programm. Forth-Programme sind 
also zuverlässiger und man verliert weniger Zeit bei der Feh- 
lersuche (Debugging). 

- Die Programmpflege gestaltet sich erheblich einfacher als 
in allen anderen Sprachen, da, um ein Programm neu anzu- 
passen, meist nur ganz wenige grundlegende Wörter abzu- 
ändern sind. Das ist für all diejenigen wichtig, die zum Beispiel 
vorhaben, irgendwann auf einen anderen Computer umzu- 
steigen, und Ihre Programmsammlung dann weiter verwen- 
den wollen. Wer einmal versucht hat, Basic-Programme vom 
C 64 auf einen anderen Computer umzuschreiben, der weiß 
das zu würdigen. 

Daß Forth schwer zu erlernen sei, ist nur ein Gerücht. Forth 
ist sehr ungewöhnlich, aber auch nicht schwieriger als Basic 
oder Pascal. Nur wer sich nicht von gewohnten Konzepten 
trennen kann, mag anfangs Schwierigkeiten haben. 

Wie schafft sich der Forth-Programmierer nun seine neuen 
Wörter? Es gibt prinzipiell drei Möglichkeiten, die die Stich- 
wörter Colon-Definition, Primitive und Compiler umreißen. 
Die Colon-Definition 

Die Colon-Definition ist die übliche Methode, Wörter zu 
bauen. Die meisten Programme bestehen aus kaum mehr als 
einer Reihe von solchen Definitionen. 


F: ist eine sehr leistungsfähige Sprache. Wer in Forth 


Eine Colon-Definition besteht aus: 
Anfang, Name, Definition, Ende. 

Den Anfang kennzeichnet in Forth ein Doppelpunkt (engl. 
Colon, daher der Name dieser Definitionsart), darauf folgt der 
Name des zu definierenden Wortes. Die dann folgende Defi- 
nition ist nichts weiter als eine Liste bereits bekannter Forth- 
Wörter, die vom System immer dann ausgeführt werden sol- 
len, wenn der neue Name als Anweisung auftaucht. Das Ende 
der Colon-Definition aktiviert ein Semikolon. 

Ein Beispiel: 

: PETRA5 + .; 

VLIST zeigt, daß PETRA nun ganz oben im Dictionary steht! 
PETRA addiert eine 5 und zeigt das Ergebnis an. Zum Bei- 
spiel ergibt 

10 PETRA 

nach Drücken der Return-Taste die Meldung 

15 OK 

Die eben durchgeführte Colon-Definition von PETRA 
repräsentiert natürlich kein besonders gutes Beispiel für 
sinnvolle Programmierung in Forth, denn normalerweise wird 
man als Namen für ein Wort immer eine aussagekünftige 
Bezeichnung wählen (in diesem Falle vielleicht »PLUS- 
FUENF.«). Die Bezeichnung PETRA sollte nur zeigen, daß 
man in Forth bei der Namensgebung völlig freie Hand hat. 
Forth und Maschinensprache 

Wer etwas Ahnung von Maschinensprache hat, der sollte 
nicht denken, »da brauche ich Forth ja nicht mehr«, sondern 
kann seine Kenntnisse sehr sinnvoll einbringen. Es besteht 
die Möglichkeit, Wörter statt wie eben in »High-Level«, also 
als Colon-Definition, auch als sogenannte »Primitive«, das 
heißt in Maschinensprache, zu schreiben. Dazu benötigt man 
einen Forth-Assembler, den die meisten Forth-Versionen 
gleich mitanbieten. 

Ein Maschinen-Befehl besteht in der Regel aus Befehls- 
wort und Operanden. 

Im 6502-Assembler lautet beispielsweise der Befehl zum 
Laden des Akkumulativs mit der Konstanten 1 
LDA #1 

Der Forth-Assembler benötigt hier die umgekehrte Nota- 
tion, also erst den Operanden: 

01 # LDA, 
(man beachte das Komma hinter LDA!). 
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Als Beispiel ein kleiner Vergleich: 


6502-Assembler 

$Cc000 CLC $C009 RTS 
$C001 LDA $D020 $C00A NOP 
$0004 ADC #301 $C00OB NOP 
$C006 STA $D020 

Forth 

Sch # 1 

0 (PRIMITIVES) 

a 

2 CODE DANI CLC, 

3 53280 LDA, 

4 1 # ADC, 

5 53280 STA, 

6 NEXT JMP, END-CODE 


NEXT ist die Einsprungstelle für den »Inneren Interpreter« 
von Forth. Der Innere Interpreter kümmert sich darum, wel- 
ches Wort als nächstes an die Reihe kommt, dem »Äußeren 
Interpreter« fällt die Aufgabe Benutzer und Eingaben zu. 

Es ist empfehlenswert, Programme zunächst in High-Level 
zu erzeugen; falls die Geschwindigkeit dann nicht ausreicht, 
genügt es meistens, ein oder zwei Worte als Primitive umzu- 
schreiben. Das ist erheblich effektiver, als würde man das 
ganze Programm in Assembler schreiben. Oft erübrigt sich 
auch das, da Forth sowieso 100- bis 400-mal schneller als 
Basic läuft. 

Und nun für ganz Raffinierte: Wir können Wörter erfinden, 
die uns die »Arbeit« des Wörterbauens abnehmen. Dieser 
Punkt macht Forth so leistungsfähig. Als typischer Vertreter 
dieser Wörter steht CONSTANT. »n CONSTANT name« 
schafft ein neues Wort namens »name«, das bei Aufruf n auf 
den Stack legt. Beispiel: 

1024 CONSTANT SCREEN 
definiert zunächst das Wort SCREEN. Der Leser kann sich 
davon mit Hilfe von VLIST überzeugen. 

SCREEN legt dann den Wert 1024 auf den Stapel. Beispiel: 
SCREEN 500 + . 


1524 OK 
Anstelle von 1024 (Adresse des ersten Byte des Bild- 


schirmspeichers) kann also überall im Programm SCREEN 
einspringen. 

Will man später das Programm auf einem Computer laufen 
lassen, bei dem der Bildschirmspeicher vielleicht bei 4096 
beginnt, so braucht man nur ein einziges Wort abändern: 

: SCREEN 4096 ; 
Praktisch, nicht wahr? 

Das Wort CONSTANT schafft also eine ganz neue Klasse 
von Wörtern, eben mit der Eigenschaft, Konstanten zu sein. 

Ein Wort wie CONSTANT muß also zweierlei tun: Erstens 
das Wort »name« ins Dictionary eintragen, und zweitens 
»name« sagen, was es tun soll, wenn der Benutzer »name« 
aufruft. 

Zunächst erfinden wir also mit Hilfe einer Colon-Definition 
ein Wort wie CONSTANT. Nennen wir es ANGEBER. ANGE- 
BER schafft nun eine neue Klasse von Wörtern, nämlich 
Angeber-Wörter. Das sieht so aus: 

: ANGEBER (BUILDS DOES) ; 

Zwischen <BUILDS und DOES> steht die Angabe, wie 
der Wortkörper auszusehen hat, hier steht also gar nichts; 
zwischen DOES> und »;« steht, was die Angeber-Wörter 
dann ausführen sollen, hier also ebenfalls nichts. DOES> 
bewirkt, daß die PFA (Parameterfeldadresse) des Wortes 
»name« auf den Stack gelegt wird. Die PFA ist die Adresse 
des ersten Bytes des Parameterfeldes. Das Parameterfeld 
beinhaltet eine Liste im Wortkörper, die das Wort zur Ausfüh- 
rung benötigt. Bei Primitives steht da der ganze Maschinen- 
code, bei High-Level-Wörtern besteht das Parameterfeld aus 
einer Liste der Adressen der Wörter, die abgearbeitet werden 
sollen, die also in der Colon-Definition standen. 


Probieren wir ANGEBER einmal aus: 
ANGEBER MICHAEL 

Wir überzeugen uns mit VLIST, daß Michael als neues Wort 
im Dictionary steht! Nun rufen wir MICHAEL auf. Was passiert ? 
Nichts, außer daß die PFA von MICHAEL auf dem Stack liegt. 
Deshalb ist MICHAEL ein Angeber: er gibt seine PFA an, aber 
nichts dahinter! 

Probieren wir etwas anderes: 
: NICHTSNUTZ (BUILDS DOES) DROP ; 

Wir vermuten, die Nichtsnutz-Wörter entfernen sogar noch 
ihre PFA. Wir geben zunächst ein: 

NICHTSNUTZ WALTER 

und dann 

WALTER 

und tatsächlich, nichts passiert. 

Versuchen wir einmal, Konstanten bauen zu lassen: 
: CONSTANTINOPEL (BUILDS ‚ DOES) @ ; e 

Das »,« bewirkt, daß die oberste Zahl vom Stack genommen 
und ins Dictionary, also in das Parameterfeld, gepackt wird. 
Die durch CONSTANTINOPEL definierten Wörter holen diese 
Zahl wegen @dann wieder auf den Stack. Der Vorgang wie- 
derholt sich dauernd. Beispiel: 

1024 CONSTANTINOPEL SCREEN 
SCREEN 500 + . 
1524 OK 

Aha! Prima, aber wir hätten es natürlich auch einfacher 
haben können: 

: CONSTANTINOPEL CONSTANT ; 

Zum Abschluß wollen wir noch ein »richtiges« Programm 
schreiben, nämlich einen Maskengenerator, der die Bild- 
schirmseite irgendwo speichert und bei Bedarf immer wieder 
holen kann. Am besten bringen wir den ganzen Bildschirm in 
einer einzigen Variablen unter. Der Leser wird schon erraten 
haben: Wir benötigen einen neuen Variablentyp. Nennen wir 
ihn MASKE. Die Masken sollen in ihrem Parameterfeld 
zunächst 1000 Leerzeichen, also 1000mal den Bildschirm- 
code 32 haben. Das erledigt eine Schleife, also in Basic: 
FOR I=0 TO 999 
Das sieht in Forth etwas anders aus: 
1000 0 DO 

Die Punkte stehen für eine Anweisung. Nun brauchen wir 
noch ein Wort, um die 1000 Byte zu transportieren. Dazu bie- 
tet uns Forth 
CMOVE (a a:n-) 
an. CMOVE verlagert n-Byte von der Adresse a nach a. 

PFA 1024 1000 CMOVE bringt uns also die Bytes aus der 
Maske (ab a PFA) in den Bildschirmspeicher. 

Den Ausdruck 

1024 1000 CMOVE 

kürzen wir durch »M@« ab. 

MASKE ANDREA 

kreiert uns eine Leermaske namens ANDREA. 

ANDREA M@ 

holt uns ANDREA in den Bildschirmspeicher. Zum Speichern 
mit »M!« werden nur die Adressen a und a vertauscht (siehe 
Listing). Damit besitzen wir bereits einen primitiven Masken- 
generator! Wir können ihn als »Notizzettelspeicher« verwen- 
den, oder als »virtual screen buffer«, oder um mit mehreren 
Bildschirmen zu arbeiten, und so weiter. 

MASKMAKER ist eine etwas komfortablere Version: PAGE 
löscht den Bildschirm (ASCII-Code 147 beim C 64), KEY 
erwartet solange eine Tastatureingabe, die mit EMIT auf den 
Bildschirm gebracht, bis RETURN gedrückt wird. Dann wird 
die fertige Maske mit »M!« gespeichert. 

Wer will jetzt noch behaupten, Forth sei unübersichtlich? 
Man beachte, daß der ganze Maskengenerator lediglich 127 
Byte lang ist, also gerade zwei oder drei Basic-Zeilen ent- 
spricht. 

(Andreas Carl/ev) 
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Ein anschauliches Reisemagazin in 
der Happy-Computer-Ausgabe 
Juni informiert über Computer- 
Kurse im Urlaub — Für jeden 
Geschmack und jeden Geldbeutel. 


Brandaktuell und bisher nur in 
Happy-Computer: 

Die deutsche Version des spannen- 
den Abenteuerspiels »Im Herzen 
Afrikas« wird vorgestellt. — Gleich 
mit dabei: 

Ein Wettbewerb, in dem Sie als 
ersten Preis eine Reise nach Kenia 
gewinnen können. 


Brandneu: Das Grafik-Programm 
»Draughtsman« für alle CPCs wird 
vorgestellt. 

Diesmal im Commodore-Sonderteil: 
Ein Kurs zur Spieleprogrammie- 
rung in Maschinensprache. 

Und »Tron-Construction-Set«, das 
Spiel des Monats. 

Eine Top-Ten-Liste von 
Matrix-Druckern hilft richtig 
auszuwählen. 

Hardware-Bastelei: Ausführliche 
Anleitung zu einem Sensor- 
Joystick. 

Im Test: Die neuen MSX-Modelle 
von Sony. 


erhalten Sie Mitte 

bei Ihrem Zeitschrift and 

Die Juni-Ausgabe erscheint __ 
am 12.Mai 1986. 
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HEBEN EEE ME EMMEME MEMMEEM  MMMAMES UEEMERN MEN MM MRMME „ärer MR EI 


zutschei 
FÜR EIN KOSTENLOSES PROBEEXEMPLAR VON HAPPY-COMPUTER 


JA, ich möchte »Happy-Computer« kennenlernen. 

Senden Sie mir bitte die aktuellste Ausgabe kostenlos als Probeexemplar. Wenn mir »Happy-Computer« 

gr und ich es regelmäßig weiterbeziehen möchte, brauche ich nichts zu tun: Ich erhalte »Happy- 
'omputer« dann regelmäßig frei Haus per Post und bezahle pro Jahr nur DM 66,— statt DM Pa Einzel- 

verkaufspreis (Ausland auf Anfrage). 


Vorname, Name 


Straße PLZ, Ort 


Datum 1. Unterschrift 

Mir ist bekannt, daß ich diese ae id von 8 Tagen bei der Bestelladresse widerrufen kann 

= ee dies durch meine zweite Unterschrift. Zur Wahrung der Frist genügt die rechtzeitige Absendung 
les Widerrufs. 


Datum 2. Unterschrift 


Gutschein ausfüllen, ausschneiden, in ein Kuvert stecken und absenden an: 
Markt& Technik Verlag Aktiengesellschaft, Vertrieb, Postfach 1304, 8013 Haar 


HCS586 


PILOT 


ilot hat nichts mit dem gleichlau- 
tenden Wort »Pilot« zu tun, son- 
dern ist die Abkürzung für »Pro- 
grammed Inquiry, Learning Or Teach- 
ing«, auf deutsch etwa »Programmier- 
tes Abfragen für Lernen und Lehren«. 
Der Zweck ist also klar: Pilot wurde ent- 
wickelt, um schnell und einfach Lern- 
programme zu schreiben. Lernpro- 
gramme, die mit Computern nichts zu 
tun haben müssen! Nein, alles ist denk- 
bar, von Vokabelabfragen über Recht- 
schreibübungen bis hin zu Geschichts-, 
Biologie- oder Physik-Lernprogram- 
men. Eine solche Vielfalt muß nicht 
unbedingt erstaunen, denn alle derarti- 
gen Programme benutzen ja ein 
bestimmtes Konzept immer wieder, 
nämlich das der Stringverarbeitung. 
Und gerade auf diesem Gebiet liegt die 
Stärke von Pilot. Die Sprache hat einige 
Befehle zu bieten, die nicht alltäglich 
sind. 
Doch gehen wir der Reihe nach vor 
und beginnen wir mit den eher gewöhn- 
lichen Befehlen. 


Hallo Pilot, 
wie geht’s? 


Jede Anweisung in Pilot hat die fol- 
gende Form: 

Befehl: Operandenliste 

In jeder Zeile steht genau eine Anwei- 
sung, Zeilennummern gibt es nicht. Ein 
Beispiel: Das Ausgeben von Text auf 
dem Bildschirm geschieht durch den 
Befehl »T« (für »Type«). Also schreibt: 
T:Hallo Pilot 
die Worte »Hallo Pilot« auf den Bild- 
schirm. 

Will man den Type-Befehl inmehreren 
Anweisungen hintereinander benut- 
zen, muß man den Befehl nicht mehr- 
fach angeben. Dann genügen die Dop- 
pelpunkte. 

T:Hallo Pilot 

:Wie gehts 

schreibt erst »Hallo Pilot« und dann 
»Wie gehts« eine Zeile darunter. 

Der Type-Befehl existiert in zwei 
Varianten. 

»TS« löscht zuerst den Bildschirm und 
gibt dann den Text aus und »TH« (»Type 
and Hang«) läßt den Cursor für den 
nächsten Type-Befehl in derselben 
Zeile stehen. 

Ähnlich wird der A-Befehl (für 
»Accept«) verwendet. »A:#X« ent- 
spricht der Basic-Anweisung INPUT X. 
Das Zeichen »#« gibt an, daß X eine 
numerische Variable ist. 


Hier finden Sie eine Einführung 
in die Programmiersprache Pilot. 
Anhand einiger Beispiele wer- 
den die Fähigkeiten dieser in- 
teressanten Sprache vorgestellt. 


Als Variante ist »AS« (»Accept Single 
Character«) zu erwähnen. Dabei wartet 
der Computer nur auf die Eingabe eines 
einzelnen Zeichens und fährt dann 
sofort mit dem Programmlauf fort. 

Die Befehle Type und Accept dienen 
also zur Kommunikation zwischen Pro- 
gramm und Benutzer. Aber auch 
Berechnungen fallen an. Dazu dient der 
Befehl »C« (für »Compute«). 

»C:x=3*2« berechnet beispiels- 
weise das Produkt aus 3 und 2 und 
weist es der Variablen x zu. Bei dem 
Compute-Befehl benötigt man das» #« 
nicht. 

Zu diesem Thema wäre noch zu sa- 
gen, daß es in Pilot nur ganze Zahlen 
gibt. Wer das als Nachteil empfindet, 
sollte sich noch einmal klarmachen, für 
welchen Zweck diese Sprache über- 
haupt konzipiert wurde, denn ein 
Rechtschreib- oder Geschichtspro- 
gramm benötigt nun wirklich keine 
Kommazahlen. 

Immerhin sind aber für ganze Zahlen 
die Operatoren »+«, »-«, »*« und »/« 
vorhanden. 

Schließlich benötigen wir einen 
Sprung-Befehl. Dieser lautet J (für 
»jump«). Dazu muß natürlich ein 
Sprungziel angegeben werden. Basic 
erledigt diese Aufgabe durch eine Zei- 
lennummer, in Pilot hingegen geschieht 
es anschaulicher durch Angabe eines 
»Labels«, das heißt eines symbolischen 
Namens. 

»J:iend« springt also zum Label mit 
dem Namen »end«. Dieses Label muß in 
dem Programm vorhanden sein, und 
zwar in der Form »*end«. 


Labels statt 
Zeilennummern 


Einen bedingten Sprung bewirkt die 
Angabe einer Bedingung: »J(x=0): 
end« löst einen Sprung nach »end« nur 
unter der Voraussetzung aus, daß X den 
Wert Null hat. Ansonsten hat diese 
Anweisung keine Wirkung. In der Klam- 
mer zwischen »J« und »:« kann ein belie- 
biger logischer Ausdruck stehen. An 
Vergleichsoperatoren fehlt keiner der 
von Basic her gewohnten. 


Übrigens kann man jeden Befehl von 
solch einer Bedingung abhängig 
machen: »T(x=O):gleich O« gibt den 
Text nur aus, wenn x den Wert O hat, 
»C(a=b):y=x+3« berechnet y=x+3, 
falls a=b gilt. 

Damit besitzen wir genügend Wis- 
sen, um ein erstes Programm zu verste- 
hen (Listing 1). Es handelt sich dabei 
um ein Programm, das entscheidet, ob 
eine eingegebene Zahl eine Primzahl ist 
oder nicht. Zum direkten Vergleich 
steht hinter jeder Zeile des Programms 
die entsprechende Basic-Zeile. 


Als Primzahl wird eine Zahl bezeich- 
net, die nur durch 1 und sich selbst 
ohne Rest teilbar ist. Wollen wir also 
prüfen, ob eine Zahl diese Eigenschaft 
besitzt, untersuchen wir alle in Frage 
kommenden Zahlen auf die Teilereigen- 
schaft hin. Das sind natürlich nur die 
Zahlen, die kleiner sind als die zu unter- 
suchende. Nennen wir unsere Zahl ein- 
mal x. Dann beginnen wir bei i=2 zu 
testen, ob i Teiler von x ist. Die Bedin- 
gung hierfür lautet: X/i*i=x. Man 
beachte, daß x/i eine ganzzahlige Divi- 
sion ist, das heißt Kommastellen entfal- 
len. Machen Sie sich anhand von Bei- 
spielen klar, daß diese Bedingung 
gleichwertig zur Teilerbedingung ist. 
Sie ist bis i=x-1 zu überprüfen, dann 
nicht mehr. 

Sobald sich die Bedingung erfüllt, ist 
iein Teiler von x und daher x keine Prim- 
zahl. Dann erfolgt ein Sprung nach 
»*notprim«.. Ansonsten läuft die 
Schleife unterhalb von »*test« bis zum 
Ende und gelangt dann nach »* prim«. 
Was in den einzelnen Fällen passiert, 
sollte jedem klar sein. 

Als Sonderfall gitt x=2, da die 
Schleife unterhalb von »* test« bei i=2 
zu laufen beginnt und daher sofort 2 als 
Teiler von 2 finden würde. 

Vergleichen Sie bitte Pilot- und Basic- 
Programm Zeile für Zeile, um sich die 
Unterschiede deutlich zu machen. 

Eine Anmerkung zum Schluß: Die 
Anweisung »W:20« stellt lediglich eine 
Warteschleife dar (W entspricht »Wait«) 
und hat sonst keinerlei Funktion. Sie ist 
aber nötig, da der Pilot-Interpreter nach 
Beendigung eines Programms sofort 
wieder ins Hauptprogramm zurück- 
springt. Die Wait-Anweisung gibt dem 
Anwender des Programms etwas Zeit, 
das Resultat zu lesen. 
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PILOT 


Nun kommen wir endlich zu den an- 
gekündigten Besonderheiten von Pilot. 
Diese betreffen zunächst den Accept- 
Befehl, da er auch ohne Operand auf- 
gerufen werden kann, einfach in der 
Form »A:«. Die Eingabe geht damit 
natürlich nicht verloren, sonst hätte das 
alles wenig Sinn. Vielmehr befindet sie 
sich in einem speziellen Eingabe- 
Buffer. Mit »%b« (für Buffer) können sie 
nun darauf zurückgreifen. Wertzuwei- 
sungen oder Berechnungen sind zum 
Beispiel durch »C:x=%b« möglich oder 
die Eingabe wird wieder durch »T: #%b« 
ausgegeben (man beachte das #- 
Zeichen). 

Das scheint natürlich nicht sensatio- 
nell und ist daher auch nicht der eigent- 
liche Zweck der Angelegenheit. Der 
folgt jetzt in Form des Befehls M (für 
»Match«). Die Erfinder von Pilot mach- 
ten sich nämlich Gedanken, wie sich 
solche Frage- und Antwortspiele, wie 
sie Vokabel-Lern-Programme nun ein- 
mal darstellen, mit dem geringsten Auf- 
wand programmieren lassen. Es ist ja 
überhaupt nicht nötig, dem Eingabe- 
string einer Vokabel einen Variablenna- 
men zu geben. Man muß eben nur fest- 
stellen können, ob die Eingabe mit der 
korrekten Lösung übereinstimmt. Die- 
ses Testen übernimmt der Match- 
Befehl (match heißt ja übereinstimmen). 


*start 
Se gaben Sie eine Zahl ein 


ä(s/iXi=x)ınotprim 
cti=i+ti 
Jtiix)ıtest 

%prim 
t:#x 
jrend 

*Xnotprim 
t:#% 

xend 
w:20 


ist prim 


ist nicht prim 


Die Anweisung »M:super« prüft also, ob 
die letzte Eingabe (durch eine unspezi- 
fizierte Accept-Anweisung) mit dem 
Wort »super« übereinstimmt. Aber wie- 
der ist nicht klar, was mit dem Ergebnis 
geschieht, da ja zwei Fälle auftreten 
können. 

Y (für »yes«) heißt: Die Eingabe 
stimmt überein. 

N (für »no«) heißt: Die Eingabe stimmt 
nicht überein. 

Wann immer nun bei einer der folgen- 
den Anweisungen ein Y (beziehungs- 
weise N) hintenansteht, wird diese nur 
ausgeführt, wenn eine Übereinstim- 
mung festgestellt wurde (beziehungs- 
weise nicht festgestellt wurde). 


ts:Welches Gebaeude ist auf dem 
:1000-Mark-Schein zu sehen ? 


as 
m:Limburg 
thy:Richtig, 
jiy:ıend 
t:Falsch. 
Ein Tip : 


Es handelt sich um den 
:Dom einer hessischen Stadt. 

as 

m:Limburg 

thysRichtig, 

jJy:send 

th:Leider falsch, 

xend 

t: es ist der Limburger Dom 

wi 20 


Listing 2. Demonstrationsprogramm für 
den Accept- und Match-Befehl 


20 Fem start 
"rem 
input x 
if x=2 then 190 
i=2 
SO rem test 
if int (x/i)ki=x 
i=itl 
if iix then 150 
D rem prim 
print x3 
goto 240 
rem notprim 
230 print x;" ist nicht prim" 
240 rem end 
250 rem pause 


then 220 


ist prim" 


Listing 1. Vergleich: Primzahlenberechnung in Pilot und Basic 


Übersicht über die Pilot-Befehle 
T: Text 

TSText 
THTText 

A: #num Var. 
AS: #num.VAR. 


Ausgabe eines Textes auf dem Bildschirm 
Löschen des Bildschirms, dann Ausgabe 
Ausgabe eines Textes ohne Carriage Return 
Eingabe einer numerischen Variablen 
Eingabe einer einstelligen Zahl 


A: Eingabe in den Eingabe-Buffer 
AS: Eingabe eines Zeichens in den Buffer 


C:Var=Ausdr. 


Auswerten des numerischen Ausdrucks und Zuweisung des 


Zum Beispiel: sTY: Richtig« gibt »Rich- 
tig« auf den Bildschirm, wenn die letzte 
Match-Anweisung ein positives Ergeb- 
nis brachte. 

Jeder mit Y oder N versehene Befehl, 
seiesnun TN, JY oder CN, bezieht sich 
also immer auf das Ergebnis der letzten 
Match-Anweisung. 

Unser neues Wissen wollen wir uns 
an einem weiteren Pilot-Programm 
ansehen (Listing 2). Da dieses die spe- 
ziellen Accept- und Match-Anweisun- 
gen benutzt, kann esnnicht einfach Zeile 
für Zeile in ein Basic-Programm übertra- 
gen werden. Aber es ist trotzdem nicht 
schwierig zu verstehen. 

Der Benutzer wird gefragt, welches 
Gebäude ein 1000-Mark-Schein zeigt. 
Es handelt sich hierbei um den Limbur- 
ger Dom. 

Betrachtet man die Match-Anwei- 
sung, die hier Übereinstimmung fest- 
stellen soll, so sieht man, daß nur ein 
Vergleich mit »Limburg« stattfindet. Das 
hat durchaus seine Vorteile. Denn der 
Benutzer, der die Antwort kennt, kann 
nun »Limburger Dom«, »Der Limburger 
Dom« oder auch nur »Limburg« ein- 
geben. 

Alles wird hier als richtig erkannt, da 
jede Antwort das Vergleichswort »Lim- 
burg« enthält. Derartige Flexibilität 
kostet in anderen Programmierspra- 
chen wesentlich mehr Mühe als hier. 

War die Antwort korrekt, wird »Rich- 
tige ausgegeben und zum Ende 
gesprungen. 


Aus Limburg kommt 
nicht nur Käse 


Bei falscher Antwort bekommt der 
Benutzer einen Tip und darf ein zweites 
Mal antworten. Danach erscheint es 
nicht mehr so unnatürlich, nur mit »Lim- 
burg« zu antworten, und so ist die 
Anweisung »M:Limburg« hier durchaus 
gerechtfertigt. 

Gehen Sie das Programm nun noch 
einmal durch und achten Sie besonders 
auf die Anwendung von A,M, Y, N. 

Kenner von Pilot meinen nun wohl zu 
dem Programm, daß man es noch kür- 
zer und einfacher hätte schreiben kön- 
nen. Das stimmt natürlich. Pilot kennt 
noch mehr ungewöhnliche Anweisun- 
gen, die zur Vereinfachung beitragen 


Wertes an die Variable 

Sprung zu einem Label 

*Label Kennzeichnung eines Labels 

MiText Vergleich der letzen Eingabe mit dem Text 
Befehl(Bedingung):Operanden Bedingte Anweisung. Die Bedingung muß ein logischer Aus- 
druck sein 

Befehl wird ausgeführt, wenn die letzte M-Anweisung positiv 
ausfiel. 

Befehl wird ausgeführt, wenn die letze M-Anweisung negativ 
ausfiel. 


können. Aber die in diesem einführen- 
den Artikel vorgestellten Mittel erlau- 
ben es nicht. Es sollte Ihnen hier jaauch 
nur ein Überblick vermittelt werden, 
was Pilot. leistet und wie es arbeitet. 
Einen Vergleich von Pilot gegenüber 
anderen Programmiersprachen sollten 
Sie jetzt aber zumindest ziehen können 
und sich dann entscheiden. 

(Eckart Winkler/ev) 
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J:Label 


BefehlY:Operanden 


BefehlN:Operanden 


COMPUTER 


Tiny Pilot zum Abtippen 


Die Programmiersprache Pilot 
eignet sich besonders für Lehr- 
programme. Hier ist ein Pro- 
gramm, das einen ersten Ein- 
druck dieser Sprache vermittelt. 


ilot wurde erfunden, um auf 

besonders einfache Art und 

Weise Lehrprogramme zu ent- 
wickeln. Auf dieses Ziel abgestimmt ist 
daher auch die gesamte Struktur der 
Sprache. Pilot bietet einfache Befehle 
zur Ausgabe von Fragen, zur Eingabe 
von Antworten und zum Vergleich der 
Antworten mit vorgegebenen Texten. 
Zwei Flags, nämlich »Y« (für Yes) und 
»N« (für No) speichern den Wahrheits- 
wert der Antworten und beeinflussen in 
sehr einfacher Weise den Programma- 
blauf. 

Der hier vorgestellte Tiny-Pilot- 
Interpreter lehnt sich an die Struktur der 
Sprache Pilot an, verfügt jedoch nur 
über einen eingeschränkten Befehls- 
satz. Die Befehle sind auch von der 
Komplexität und Leistungsfähigkeit her 
zum Teil wesentlich einfacher aufge- 
baut, als das in größeren Pilot-Ver- 
sionen der Fall ist. So sind Rechen- 
operationen nur sehr eingeschränkt 
möglich, Variable und Unterprogramm- 
Namen fehlen. 

Dieser Pilot-Interpreter soll denn 
auch kein professionelles Program- 
mierssystem für Pilot darstellen, son- 
dern lediglich einen ersten Eindruck 
dieser Sprache vermitteln. Vermißt 
jemand wesentliche Funktionen von 
Pilot, dann kann er diese ohne große 
Probleme selbst einbauen - der Inter- 
preter ist schließlich in Basic geschrie- 
ben und extra auf Erweiterungsfähig- 
keit angelegt. Das Programm (Listing 1) 
besteht intern eigentlich aus zwei Tei- 
len, nämlich dem Editor, mit dem Pilot- 
Programme geschrieben, gespeichert 
und verändert werden, und dem eigent- 
lichen Pilot-Interpreter, der Tiny-Pilot- 
Programme ausführt. Obwohl das Pro- 
gramm für den Schneider CPC 464 
geschrieben ist, läßt es sich ohne 
Schwierigkeiten auch an andere Com- 
putersysteme anpassen. 


Der hier realisierte Editor orientiert 
sich am normalen Basic-Editor, das 
heißt, Programmzeilen werden, begin- 
nend mit einer Zeilennummer, eingege- 
ben. Durch Eingabe nur einer Zeilen- 
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nummer (ohne weiteren Text) wird die 
entsprechende Zeile gelöscht. Weitere 
Kommandos werden im folgenden vor- 
gestellt. Dabei ist zu beachten, daß ein 
Befehl und ein eventuell angegebener 
Parameter (Zeilennummer oder Pro- 
grammname) immer durch genau ein 
Leerzeichen (Space) getrennt sein 
müssen. Programmnamen stehen im 
Gegensatz zu Basic nicht in Anfüh- 
rungszeichen. 

LIST nr: Listet Pilot-Programm. Die 
Angabe einer Zeilennummer (nr) 
bewirkt die Ausgabe des Listings ab 
dieser Zeile. Bei fehlender Zeilenan- 
gabe beginnt das Listing mit der ersten 
vorhandenen Zeile. Drücken der 
Space-Taste hält die Auflistung an, 
durch Betätigen irgendeiner anderen 
Taste wird das Listing fortgesetzt. Eine 
beliebige Taste (außer Space) während 
des Auflistens unterbricht das Listing 
total. 

LOAD name: Lädt ein Pilot- 
Programm von Kassette oder Diskette. 
Der Programmname wird mit der Erwei- 
terung »PLT« für Pilot versehen, falls er 
nicht schon eine Erweiterung enthält. 
Beispiel: Der Befehl »LOAD TEST« 
sucht und lädt eine Datei mit Namen 
»TEST.PLI«. Pilot-Programme werden 
als sequentielle Dateien abgelegt. Das 
Öffnen einer sequentiellen Datei zum 
Lesen geschieht im Schneider-Basic 
mit dem Kommando »OPENIN 
”Name”«, geschlossen wird die Datei 
mit »CLOSEIN«. Das eigentliche Lesen 
aus der Datei geht mit »INPUT #9 
beziehungsweise »LINE INPUT #9« vor 
sich. Diese Befehle unterscheiden sich 
von Computer zu Computer. Wenn Sie 
dieses Programm auf einem anderen 
Computer als einen Schneider CPC lau- 
fen lassen wollen, dann schlagen Sie 
bitte die entsprechenden Kommandos 
für Ihren Computer nach. 

SAVE name: Dieser Befehl speichert 
ein Pilot-Programm unter dem angege- 
benen Namen auf Kassette oder Dis- 
kette. Hinsichtlich Programmnamen 
und Anpassung an andere Computer 
gilt auch hier sinngemäß das bei LOAD 
Gesagte. Eine sequentielle Datei wird 
beim Schneider CPC mit »OPENOUT 
"Name ” «zum Schreiben geöffnet und 
mit »CLOSEOUT« wieder geschlossen. 
Das eigentliche Schreiben in die Datei 
geschieht mit »PRINT #9«. 

EXIT: Dieses Kommando beendet 
das Arbeiten mit dem Pilot-Interpreter, 
indem es einfach ins Basic zurückkehrt. 
Vergessen Sie nicht, Ihr Pilot- 


Programm vor EXIT zu speichern. 
CAT: Dieses Kommando listet das 


Inhaltsverzeichnis einer Diskette auf 
dem Bildschirm. Beim Schneider CPC 
geschieht dies ganz einfach durch das 
gleichlautende Basic-Kommando CAT, 
bei anderen Systemen kann das ent- 
sprechende Kommando anders lauten 
(DIR, DIRECTORY, CATALOG oder ähn- 
lich). Einige ältere Computermodelle 
benötigen an dieser Stelle ein ganzes 
Unterprogramm. 

NEW: Wie in Basic, so löscht dieser 
Befehl auch hier ganz einfach das im 
Speicher befindliche Pilot-Programm. 
Und wie in Basic sollte man diesen 
Befehl daher nur mit Überlegung 
anwenden. 

RUN: Ebenfalls ganz analog zu Basic 
veranlaßt RUN den Pilot-Interpreter, 
das im Speicher stehende Pilot- 
Programm auszuführen. 

Wer möchte, dem steht nichts im 
Wege, den Editor-Teil selbst um weitere 
Kommandos zu erweitern, etwa um 
einen RENUMBER-Befehl oder um ein 
Kommando für das Listen des Pilot- 
Programms auf einem Drucker. 


Die Tiny- 
Pilot-Befehle 


Nach RUN beginnt der Pilot- 
Interpreter, der im Listing die Zeilen ab 
1000 belegt, mit der Abarbeitung des 
Programms. Die Variable PC spielt 
dabei die Rolle eines Programmzählers. 
Sie enthält nämlich immer die Nummer 
der gerade aktuellen Befehlszeile. Nach 
der Ausführung eines Befehls wird PC 
um eins erhöht und zeigt auf die näch- 
ste Programmzeile. Ist diese Zeile leer, 
dann wird PC solange weiter erhöht, bis 
eine Befehlszeile gefunden wurde. 

Die Ausführung eines Befehls 
geschieht in drei Schritten. Als erstes 
wird getestet, ob die Befehlszeile mit 
den Buchstaben »Y« oder »N« anfängt. 
Ist dies der Fall, dann wird der Befehl in 
der Zeile nur dann ausgeführt, wenn 
das entsprechende Flag (Y oder N) 
gesetzt ist. Y und N beeinflußt in erster 
Linie der Vergleichsbefehl. War eine 
Antwort richtig, dann wird das Y-Flag 
gesetzt, war die Antwort falsch, das N- 
Flag. 

Nach dem Test, ob der Befehl über- 
haupt ausgeführt werden soll, erfolgt 
nun als zweites die Befehls-Analyse. 
Für jeden Pilot-Befehl steht ein einzel- 
ner Buchstabe oder ein Sonderzei- 
chen. Die Befehlszeile wird also zerlegt 
in ein Befehlszeichen (Variable A$) und 
einen Operandenstring (Variable B$). 


N DD yo &% 
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Hinweise zum Anpassen des Programms an andere Computer 


DEFINT A-Z 


CLS 
MID$(A$,n) 


PRINT USING 


INSTR(A$,B$) 


INKEYS 


LINE INPUT 


CAT 


OPENOUT ”"Name” 
PRINT#9 
CLOSEOUT 
OPENIN "Name” 
INPUT #9 

LINE INPUT #9 
CLOSEIN 


Definiert alle numerischen Variablen als Integer. Kann fortgelassen 
werden. 
Löscht den Bildschirm und bringt den Cursor in die linke obere Ecke. 


Eine besondere Form der MID$-Funktion, die ja normalerweise mit drei 
Parametern aufgerufen wird. Ergibt alle Zeichen von A$ an der n-ten 
Position. Obwohl wenig bekannt, funktioniert diese Form bei praktisch 
allen Computern, die die MID$-Funktion überhaupt kennen. 


Eine formatierte PRINT-Anweisung. Hinter USING folgt ein Format- 
String, der die Feldbreite für das Ausdrucken einer folgenden numeri- 
schen Variablen enthält. USING und Formatstring können fortgelassen 
werden, allerdings ergibt sich dann natürlich ein unformatierter Aus- 
druck. 


Eine spezielle String-Funktion. Der String B$ wird innerhalb des 
Strings A$ gesucht. Die Funktion liefert als Ergebnis die Stelle, an der 
B$ in A$ auftaucht. Ist B$ in A$ nicht enthalten, dann ist das Ergebnis 
Null. Beispiel: »INSTR(” ABCD”,”C ”)« liefert als Ergebnis den Zahlen- 
wert 3, denn »C« taucht in »ABCD« an der dritten Stelle auf. Falls 
INSTR in einer Basic-Version nicht vorhanden ist, muß die Funktion 
durch ein Unterprogramm ersetzt werden. 

Gegenstück zu THEN. Wenn die Bedingung in einer IF-Anweisung 
nicht erfüllt ist, werden die Anweisungen hinter ELSE ausgeführt. Bei 
Computern, die ELSE nicht kennen, muß man eine solche IF- 
Anweisung entsprechend aufteilen. 

Beispiel: 

IF A=B THEN C=D ELSE E=F 

hat die gleiche Wirkung wie die beiden Zeilen 

IF A=B THEN C=D 

IF A()B THEN E=F 


Die Funktion wird in der Form »A$=INKEY$« angewendet und ergibt die 
gerade gedrückte Taste. Es wird nicht auf das Drücken einer Taste gewar- 
tet, sondern ein Leerstring zurückgeliefert, wenn gerade keine Taste betä- 
tigt ist. Entspricht »GET A$« bei einigen Computern. 


Wie INPUT, es können aber auch Kommata und so weiter eingegeben 
werden. Muß für einige Computer durch Unterprogramm realisiert wer- 
den. 


Zeigt Disketten-Directory am Bildschirm an. Entspricht DIR, DIRECT ORY, 
FILES, CATALOG und so weiter bei anderen Computern. 


Öffnet sequentielle Datei zum Schreiben. 

Schreibt in sequentielle Datei. 

Schließt Schreib-Datei. 

Öffnet sequentielle Datei zum Lesen. 

Liest aus sequentieller Datei. 

Liest einen ganzen Datensatz komplett mit Kommata und so weiter. 
Schließt Lese-Datei. 


Übersicht der Schneider-spezifischen Befehle und ihrer Wirkung 
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Es erfolgt eine Verzweigung in ver- 
schiedene Routinen je nach Befehl, 
und endlich als dritte Phase die eigentli- 
che Befehlsausführung. Um dem Inter- 
preter die Arbeit zu erleichtern (und 
damit die Abarbeitungsgeschwindig- 
keit zu erhöhen) fordern die Pilot- 
Befehle ein bestimmtes Eingabeformat. 
Falls eines der Flags Y oder N angege- 
ben ist, dann muß das Befehlszeichen 
direkt ohne Zwischenraum auf den 
Flag-Namen folgen. Hinter dem Be- 
fehlszeichen ist genau ein Leerzeichen 
vorgesehen, es wird aber nicht gete- 
stet, um was für ein Zeichen es sich 
dabei handelt. In der Regel drückt man 
die Leertaste (Space) nach dem Befehl, 
es ist aber auch ein beliebiges anderes 
Zeichen möglich. Insbesondere kann 
(muß aber nicht) beim T-Befehl zur Tex- 
tausgabe ein Anführungszeichen ver- 
wendet werden. Falls ein Befehl einen 
Parameter (Zeilennummer, Text oder 
Zahlenwert) benötigt, muß dieser an 
der übernächsten Position hinter dem 
Befehlssysmbol beginnen. 

Nach dieser Vorrede nun endlich die 
Pilot-Befehle im einzelnen: 

: text Kommentar - der folgende Text 
wird vom Interpreter ignoriert. 

T text Textausgabe - der nachfol- 
gende Text wird am Bildschirm ange- 
zeigt. Wenn das letzte Textzeichen ein 
Semikolon ist, wird nach der Textaus- 
gabe keine neue Zeile begonnen (das 
Semikolon wird nicht mit ausgedruckt). 
Eine weitere Textausgabe schließt dann 
unmittelbar an diesen Text an. Ist das 
letzte Zeichen kein Semikolon, beginnt 
nach der Textausgabe eine neue Zeile. 
Ein »T« allein erzeugt eine Leerzeile. 

A Antwort - Pilot wartet auf eine Text- 
eingabe vom Benutzer. Diese Eingabe 
wird in einem speziellen Antwort- 
Speicher (im Programm durch die Varia- 
ble C$ realisiert) zur weiteren Verwen- 
dung bereitgehalten. Der Antwortspei- 
cher enthält immer den mit dem letzten 
A-Kommando eingegebenen Text, alle 
früheren Antworten gehen durch ein 
A-Kommando verloren. 

V text Vergleich - prüft, ob die zuletzt 
eingelesene Antwort mit dem angege- 
benen Text übereinstimmt. Falls ja, dann 
wird das Y-Flag gesetzt und der »Match- 
Zähler« (er dient zum Zählen der richti- 
gen Antworten) um eins erhöht. Ist die 
letzte Antwort nicht mit dem Vergleichs- 
text identisch, dann wird das N-Flag 
gesetzt und der Match-Zähler bleibt 
unverändert. 

W Wiederhole letzte Antwort - druckt 
die zuletzt mit A eingelesene Antwort 
wieder aus. 

G Glocke - erzeugt ein kurzes akusti- 
sches Signal (entspricht der Basic- 
Anweisung »PRINT CHR$(7)«), das 
beispielsweise für Fehlermeldungen 
genutzt werden kann. 
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REM (c) Volker Everts, 
REM 
10 DEFINT A-Z 
20 NN=199:REM max. Anzahl Programmzeilen 
350 DIM P&{NN+1) :P$(NN+1)="E":REM Pilot-P 
rogramm 
40 CLS:PRINT TAB(6)5;"*%#* TINY PILOT ##*" 
:PRINT 
45 PRINT"OK" 
50 PRINT">"3:LINE INPUT At:At=As+" " 
60 IF LEFT$(A$,1)=" " THEN A$=MID$ (A$,2) 
:GOTO 50 
70 IF A$="" THEN 50 
80 I=INSTR(A#," ") 
90 B$=MID$(AF,I+1) :A$=LEFT${A$,I-1) 
100 IF VAL(A$)>0 OR A$="0" THEN GOSUB 20 
0:60T0 SO:REM Zeilennummer 
110 At="LIST" THEN GOSUB 300:60T0 45 
120 A$="LOAD" THEN GOSUB 400:G0T0 45 
130 A$="SAVE" THEN GOSUB 500:60T0 45 
140 A$="EXIT" THEN GOSUB 600:60T0 45 
150 A$="LCAT" THEN GOSUB 700:60T0 45 
160 At="NEW" THEN GOSUB 800:60T0 45 
170 A+="RUN" THEN GOSUB 1000: IF E THE 
N 180 ELSE 45 
175 PRINT"+++ UNBEKANNTES KOMMANDO" :G60TO 
45 
180 PRINT"+++ FEHLER IN PILOT-PROGRAMM: " 
»:PRINT PC; P$(PC):E=0:60T0 45 
185 PRINT"+++ FALSCHE ZEILENNUMMER":GOTO 
45 
197 REM 
198 REM Zeile einfuegen/loeschen 
197 REM 
200 N=VAL(A$)=:IF N>NN THEN 185 
210 P$(N)=B$ 
220 RETURN 
297 REM 
298 REM Pilot-Frogramm listen 
297 REM 
300 IF B$="" THEN B#$="0" 
310 FOR I=VAL(B#) TO NN 
320 IF P&(I)<>"" THEN PRINT USING" #448"; 
I5:PRINT" ";P$(T1) 
350 K$=INKEY$: IF K#="" THEN 340 
540 IF K$<>" " THEN I=NN:GOTO 360 
350 K$=INKEY$: IF K$="" THEN 350 
360 NEXT 
370 RETURN 
397 REM 
398 REM Pilot-Programm laden 
397 REM 
400 I=INSTR(B$,"."):IF I=0 THEN B#=B$+". 
PLT" 
410 GOSUB BOO:REM altes Programm loesche 
n 
420 OPENIN B$:REM sequentielle Datei oef 
fnen 
430 INPUT#9,N: IF N=-1 THEN CLOSEIN:RETUR 
N 
440 LINE INPUT#9,P$(N):GOTO 430 
497 REM 
498 REM Pilot-Programm speichern 
4997 REM 
500 I=INSTR(B#,".")=zIF I=0O THEN B$=B$+". 
PLT" 
510 OPENOUT B$:REM sequentielles File oe 
ffnen 
520 FOR I=0 TO NN 
550 IF P$(I)<>"" THEN PRINT#9,1I:PRINT#9, 
P$(D) 
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PRINT#9,—-1:CLOSEOUT 
RETURN 
REM 
REM Programm beenden 
REM 
&00 PRINT:PRINT"” 
="=PRINT 
&10 END 
677 REM 
698 REM Catalog 
697 REM 
700 CAT: RETURN 
797 REM 
798 REM Pilot-Programm loeschen 
7997 REM 
800 FOR I=0 TO NN:P${I)="":NEXT 
810 RETURN 
997 REM 
998 REM Pilot-FProgramm starten 
997 REM 
1000 MZ=0:C$="":Y=0:N=0 
1010 PC=-1 
1020 PC=FC+1: IF P$(PC)="" THEN 10720 
1050 Z$=P$ (PC) :sA$=LEFTF(Z$,1) 
1040 IF A$="Y" THEN Z$=MID$ (Z$,2) :A$=LEF 
T$(Z#,1): IF Y=0 THEN 1020 
1050 IF A$="N" THEN Z$=MID$(Z$,2) :A$=LEF 
T$tZ$,1):IF N=0 THEN 1020 
1060 B$=MID$(2#,3):IF As=":" THEN 1020 ' 
Kommentar 
1065 IF LEN{B$) THEN B$=LEFT$(B$,LEN(B$) 
-1) "Diese Zeile kann auf einigen Comput 
ern entfallen ! 
1070 IF A$="T" THEN 1300 'Text ausgeben 
1080 IF A$="A" THEN LINE INPUT C$:GOTO 1 
020. "Antwort einlesen 
1090 IF A$="5" THEN PC=VAL(B$)-1:60T0 10 
20 'Sprung nach Zeile B$ 
1100 IF A$="U" THEN S{SP)=PC: SP=5P+1:PC= 
VAL (B$)-1:60T0 1020 "Unterprogramm 
1110 IF A$="R" THEN SP=SP-1:PC=S (SP) :G60OT 
DB 1020 "Rueckkehr von Unterprogr amm 
1120 IF A$="M" THEN PRINT MZ3:GOTO 1020 
"Matchzaehler ausgeben 
1130 IF A$="K" THEN MZ=VAL (B$) :GOTO 1020 
"Konstante in Matchzaehler laden 
1140 IF A$="W" THEN PRINT C$;:60T0 1020 
"Wiederhole letzte Antwort 
1150 IF A$="V" THEN 1410 'Vergleiche B$ 
mit Antwort 
1160 IF A$="G6" THEN PRINT CHR$ (7) 3:G0TO 
1020 "Glocke, akustisches Signal 
1170 IF A$="-" THEN MZ=MZ-VAL (B$) :GOTO 1 
020 "Konstante von MZ subtrahieren 
1180 IF A$="+" THEN MZ=MZ+VAL (B$) :GOTO 1 
020 "Konstante zu MZ addieren 
1190 IF As="?" THEN B=VAL (B$) :Y=(MZ>B):N 
=(MZ<B):GOTO 1020 "Vorzeichen von MZ bes 
timmen 
1200 IF A$="E" THEN RETURN ’Ende des Pro 
grammlaufs 
1210 IF A$="L" THEN GOSUB 400:60T0 1010 
"Laden und starten eines Pilot-Prg. 
1220 E=-1:RETURN "Fehler, unbekannter Be 
fehl in Pilot-Programm 
1230 REM 
1300 IF B$="" THEN PRINT:GOTO 1020 
1510 IF RIGHT#(B$,1)=";" THEN PRINT LEFT 
$(B$,LEN(B$)-1);5:60T0 1020 
1320 PRINT B$:60T0 1020 
1400 REM 
1410 IF B$=C# THEN Y=-1:MZ=MZ+1 ELSE Y=O 
1420 N=(Y=0) :GOTO 1020 


===== ENDE PILOT 


Listing 1. »Tiny-Pilot«-Interpreter 
als Basic-Programm 
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Antwort auswerten 


ist leider falsch ! 


das ist richtig ! 


Listing 2. Ein Demo-Programm in Pilot. Bitte nur mit »Tiny-Pilot« eingeben, da es nicht auf jedem Interpreter läuft 


K zahl Konstante - lädt den Match- 
Zähler mit der angegebenen Zahl. Wird 
häufig mit der Zahl Null verwendet, um 
den Match-Zähler wieder auf den Aus- 
gangszustand zurückzusetzen. 

M Match-Zähler anzeigen - druckt 
den Inhalt des Match-Zählers als Zah- 
lenwert. Es wird dabei kein Zeilenvor- 
schub ausgeführt. 

+ zahl Addition - der angegebene 
Zahlenwert wird zum Match-Zähler hin- 
zuaddiert. Dient zum Addieren zusätzli- 
cher Bonus-Punkte und so weiter. 

= zahl Subtraktion - der angegebene 
Zahlenwert wird vom Match-Zähler 
abgezogen. Dient zum Vergeben von 
Malus-Punkten und so weiter. 

? zahl Test auf Zahlenwert - der 
Match-Zähler wird mit dem angegebe- 
nen Zahlenwert verglichen. Ist der 
Match-Zähler größer, dann wird das Y- 
Flag gesetzt, ist er kleiner, das N-Flag. 
Sind Match-Zähler und Zahlenwert 
genau gleich, gelten beide Flags als 
gelöscht. Dieser Befehl dient zur 
Abfrage bestimmter erreichter Punkt- 
zahlen. 

S zeile Sprungbefehl - das Pro- 
gramm verzweigt zur angegebenen 
Zeile (wie GOTO in Basic). 

U zeile Unterprogramm-Aufruf - der 
augenblickliche Wert des Programm- 
zählers wird auf einen Stack gerettet 
und die Programmausführung mit der 
angegebenen Zeile fortgesetzt. Ent- 
spricht etwa dem GOSUB in Basic. 


R Rückkehr vom Unterprogramm - 
der beim U-Befehl gerettete Inhalt des 
Programmzählers wird wiederherge- 
stellt, das Programm kehrt also in die 
dem zugehörigen U-Befehl folgende 
Zeile zurück. Entspricht RETURN in 
Basic. 

L name Laden und Starten - ein wei- 
teres Pilot-Programm wird geladen und 
automatisch gestartet. Dabei bleiben 
der Inhalt des Match-Zählers, die Flags 
Y und N sowie die letzte eingelesene 
Antwort unverändert erhalten. Durch 
diesen Befehl ist es möglich, nahezu 
beliebig lange Pilot-Programme laufen 
zu lassen, indem man kürzere Teilpro- 
gramme mittels L-Kommando verkettet. 
Bezüglich der Namensgebung gelten 
die gleichen Bemerkungen wie beim 
Editor-Befehl LOAD. 

E Ende - dieser Befehl beendet ein 
Pilot-Programm. Anschließend meldet 
sich wieder der Editor. 

Vor jedem dieser Befehle kann 
(braucht aber nicht) ein Y oder ein N 
stehen. Die Befehle werden dann nur 
ausgeführt, wenn das jeweilige Flag 
gesetzt ist. Gerade diese Fähigkeit 
gestaltet Pilot-Programme sehr flexibel. 


Empfehlenswert ist, sich strikt an die 
vorgegebenene Syntax der Befehle zu 
halten und speziell bei den Sprungbe- 
fehlen (Sund U) große Sorgfalt hinsicht- 
lich der Richtigkeit der Parameter wal- 
ten zu lassen. Um die Arbeitsgeschwin- 


digkeit des Interpreters möglichst maxi- 
mal zu halten, finden während eines 
Programmlaufes kaum Überprüfungen 
auf einwandfreie Daten statt. Ein fehler- 
haftes Programm kann dadurch in eini- 
gen, glücklicherweise sehr seltenen, 
Fällen »abstürzen«, das heißt, es kommt 
zu einem Abbruch des Basic- 
Programms mit entsprechender Fehler- 
meldung. In einem solchen Falle ver- 
mag der Tiny-Pilot-Interpreter mit 
»GOTO 40« ohne Verlust des Pilot- 
Programms wieder gestartet zu wer- 
den. 

Listing 2 zeigt ein Beispielprogramm 
in Pilot. Um dieses Programm auszu- 
probieren, müssen Sie zunächst den 
Tiny-Pilot-Interpreter (Listing 1) abtip- 
pen und mit RUN starten. Tiny Pilot mel- 
det sich mit »OK« und ist dann bereit, 
Programmzeilen anzunehmen. Das Bei- 
spielprogramm stellt einen Mini- 
Vokabeltrainer dar. Es werden drei 
Vokabeln abgefragt und zum Schluß die 
Anzahl der richtigen Antworten ausge- 
geben. Natürlich ist dieses Beispiel 
noch beliebig ausbaufähig. Vielleicht 
fallen Ihnen ja auch noch ganz andere 
Sachen ein, die Sie mit Tiny Pilot ver- 
wirklichen können. Auf jeden Fall erhal- 
ten Sie einen kleinen Eindruck von die- 
ser interessanten und etwas eigenwilli- 
gen Sprache, auch wenn nochmals 
betont werden muß, daß die Leistungs- 
fähigkeit des »echten« Pilot doch um 
einiges höher ist. (ev) 
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Der Nachfolger: Modula 2 


odula 2 wurde, ganz ähnlich 
wie etliche Jahre zuvor Pas- 
cal, von Professor N. Wirth 


an der ETH Zürich entwickelt. Die Ziffer 
2 hinter dem Namen besagt nichts wei- 
ter, als daß es sich um die zweite Ver- 
sion dieser Sprache handelt. Modula 
wurde als direkter Nachfolger von Pas- 
cal konzipiert und führt das Prinzip der 
»strukturierten Programmierung« wei- 
ter fort. 

Da Modula von Anfang an aber auch 
für die Systemprogrammierung ge- 
dacht war, sind mit dieser Sprache auch 
alle jenseits eines guten Programmier- 
stils liegenden, aber sehr effizienten 
Manipulationen möglich, die die 
Assemblersprachen und © so berühmt- 
berüchtigt gemacht haben. Allerdings 
muß solch eine »spezielle« Absicht 
gewissermaßen vorher angemeldet 
werden. 

Bei einer Beschreibung der Sprache 
kann man ruhigen Gewissens von Pas- 
cal ausgehen, da Pascal fast schon als 
eine Teilmenge von Modula zu bezeich- 
nen ist. Bis auf unwesentliche syntakti- 
sche Details wurden alle Eigenschaften 
von Pascal praktisch unverändert über- 
nommen, wobei die wenigen geänder- 
ten Details der Sprache durchwegs gut 
bekommen sind. Der einzige wirklich 
deutlich gegenüber Pascal geänderte 
Teilbereich betrifft die Ein- und Ausgabe 
von Daten, die völlig anders organisiert 
ist. Neuheiten sind natürlich auch zu 
verzeichnen: 

Als wichtigstes neues Merkmal von 
Modula, das der Sprache auch zu ihrem 
Namen verholfen hat, gibt es die Mög- 
lichkeit, völlig unabhängige Module zu 
schreiben, deren interne Daten nicht 
von außen zugänglich sind. In Modula 2 
besteht ein Modul aus zwei getrennten 
Teilen, einem Definitions- und einem 
sogenannten Implementationsteil. 

Programmteile, die mit einem Modul 
arbeiten, dürfen sich ausschließlich auf 
den Definitionsteil des jeweiligen 
Moduls beziehen, der im wesentlichen 
die von außen benutzbaren »Objekte« 
(Variable, Datentypen etc.) mit ihren 
wichtigen Attributen aufzählt. 

Der Implementationsteil gibt dann die 
genaue Ausführung der Datentypen 
und Unterprogramme an, die im Defini- 
tionsteil deklariert wurden. 

Der Implementationsteil kann auch 
nach dem Definitionsteil übersetzt und 
sogar getrennt vom Definitionsteil neu 
übersetzt werden. Leider hat das zur 
Folge, daß jeder Modula-Compiler 
einen speziellen Linker nur für Modula- 
Programme braucht; herkömmliche Lin- 


Professor N. Wirth, der »Vater« 
von Pascal, hat sich mit Modula 
2 einen neuen Geniestreich 
geleistet. Diese Sprache ist 
dabei, ihrem Vorgänger Pascal 
den Rang abzulaufen. 


ker können nämlich die Überprüfungen, 
die beim Linkprozeß eines solchen 
Moduls notwendig werden, nicht vor- 
nehmen. 

Jedes Modul beinhaltet eine Liste, 
welche Objekte aus welchen anderen 
Modulen zur Anwendung »importiert« 
werden dürfen. Diese Liste bläht zwar 
das Programm ziemlich auf, da in der 
Regel doch recht viele Objekte zu über- 
nehmen sind (vor allem eben die Ein- 
und Ausgabe); andererseits erhält 
damit der Compiler Gelegenheit, zu 
überprüfen, ob diese Objekte wirklich 
von den anderen Modulen exportiert 
werden. Diese Möglichkeit der Über- 
prüfung durch den Compiler sollte man 
nicht unterschätzen, vermeidet sie 
doch viele Fehler, die auf irrtümlicher 
Verwendung irgendwelcher globaler 
Parameter oder Daten in herkömmli- 
chen Programmiersprachen beruhen. 


Flexibilität durch 
Prozedur-Variable 


Eine weitere wichtige Erweiterung 
gegenüber Pascal stellt die Einführung 
von sogenannten Prozedur-Variablen 
dar. Das hat zur Konsequenz, daß bei- 
spielsweise auch Arrays von Prozedu- 
ren oder vektorwertige Funktionen 
möglich sind, für den Systemprogram- 
mierer sicherlich nicht uninteressant. 

Bei den Unterprogrammen gibt es 
noch eine Neuerung, die bei einigen 
Pascal-Implementationen schon in 
unterschiedlichen Formen geprobt 
wurde: 

Wenn T ein Typname ist, kann man 
einen Parameter als »ARRAY OF T« 
deklarieren. Dann sind alle Arrays, die 
Elemente vom Typ T sind, als Argu- 
mente des Unterprogramms zu verwen- 
den. Das Unterprogramm kann die 
Grenzen des Indexbereichs durch eine 
Standardfunktion abfragen, so daß man 
weiß, welche Array-Elemente existieren 
und welche nicht. 

Außerdem gibt es für die am häufig- 
sten verwendeten Sprunganweisungen 
Ersatzanweisungen, die im Gegensatz 
zum altbekannten und verpönten 


»GOTO« nicht mit der strukturierten Pro- 
grammierung in Konflikt geraten kön- 
nen: Es handelt sich um Befehle, die die 
Abarbeitung einer Schleife bezie- 
hungsweise eines Unterprogramms 
vorzeitig beenden. 

Allerdings kann man nicht mehrere 
Schleifen auf einmal abbrechen, son- 
dern nur immer die innerste Schleife, in 
der sich das Programm zum Zeitpunkt 
des Abbruchs befindet. Das setzt der 
Brauchbarkeit der Abbruchsanweisung 
für Schleifen doch eine deutliche 
Grenze. 

Konsequenterweise gehört auch der 
unbedingte Sprung »GOTO« immer 
noch zu der Sprache. Erwähnenswert 
ist die Möglichkeit, in der Konstanten- 
vereinbarung statt Konstanten auch 
konstante Ausdrücke anzugeben. 
Damit ist es viel leichter als in Pascal, 
genaue Wertebereiche anzugeben, in 
denen sich Variable bewegen; es 
kommt ja häufig vor, daß eine Variable 
genau dieselben Werte wie eine andere 
Variable annimmt, bis auf genau einen 
Randwert. In solchen Fällen mußte man 
in Pascal bei Anpassungen des Werte- 
bereichs immer zwei Konstanten 
ändern, in Modula bei Deklarationen 
nach dem Muster 


CONST 
big=99999; 
bigger=big+1 


lediglich eine. R 
Die letzte wichtige Änderung, die 
noch auffällt, ist bei einer Hochsprache 
schon recht ungewöhnlich: Modula 
akzeptiert Zahlen nicht nur in der übli- 
chen dezimalen Schreibweise, sondern 
auch in hexadezimaler (richtig eigent- 
lich: sedezimal) oder oktaler Darstel- 
lung. Für Systemprogrammierer, die ja 
immer wieder einzelne Bits aus einer 
Zahl benötigen oder direkt auf Maschi- 
nenadressen zugreifen, ist dies sicher- 
lich eine wertvolle Unterstützung. 
Modula 2 ist bislang nur für IBM- 
kompatible Computer unter MS-DOS 
sowie für die Atari-ST-Reihe erhältlich. 
Die Atari-ST-Version stammt von TDI- 
Software; Vertrieb in Deutschland 
durch Focus Computer. Die leider nur in 
englisch erhältliche Dokumentation 
reicht aus, allerdings gerade bei der 
Beschreibung der für den Systempro- 
grammierer interessanten Konstruktio- 
nen geriet sie etwas knapp. Sehr positiv 
dagegen ist die vollständige Anbindung 
dieses Modula-Systems an die Benut- 
zeroberfläche GEM - ein echtes Pro- 
dukt für das 68000-Zeitalter also. 
(Joachim Durchholz/ev) 
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An 
CONIPUTER 


denken 


Lisp, Logo, Prolog, Exoten unter 
den Programmiersprachen. Spra- 
chen der »Künstlichen Intelli- 
genz«, Sprachen für Programme, 
die dazulernen. Sie könnten die 
Grundlage sein für Computer, die 
ohne Programmierer auskom- 
men! 


ir befinden uns im Jahre 
1991. Japan hat seine An- 
kündigung wahr gemacht: 


Die Prolog-Maschine ist da und sie 
sticht alles aus, was die Welt bisher an 
Computern gesehen hat. Das Modell 
für den deutschen Markt steht bei mir 
zu Hause - als Redakteurin einer Com- 
puterzeitung habe ich eins der ersten 
Exemplare ergattert. 

An der INWB (die Internationale 
Netzwerk-Buchse) und am Stromnetz 
ist sie schon angeschlossen. Nun stellt 
sie sich kurz vor (sie heißt Com-Pu-Ta). 
Die neue Superrechenmaschine spricht 
mit mir - natürlich deutsch. Ihre Stimme 
gefällt mir. Wir plaudern 'ein bißchen 
über meine Wohnungseinrichtung und 
das Fernsehprogramm heute abend. 
Und dann fühle ich ihr ein wenig auf den 
Zahn, frage sie nach Geschichtsdaten, 
gebe ihr Mathematikaufgaben zu lösen, 
spiele ihr Musik vor und lasse mir erzäh- 
len, wie die Stücke entstanden sind, 
wer sie singt und wovon sie handeln. 
Auch meine Fragen nach dem ersten 


Artikel auf Seite 3 in der Süddeutschen 
Zeitung vom letzten Freitag beantwor- 
tet sie prompt. Ich bitte sie, mir die wich- 
tigsten Bücher und Artikel zu dem 
Thema zusammenzustellen und die 
Liste auf meinen PC zu übertragen. 
Kein Problem. Etwas länger braucht sie 
allerdings schon, um sich in die japani- 
sche Zentral-Datenbank einzuloggen 
und mir das schönste Video über 
Kabuki-Theater rüberzuholen. Viel- 
leicht war aber nur das INW überlastet. 
Während ich mir das Video auf dem 
Monitor ansehe, erklärt sie mir auf 
meine Fragen, wie lange die Darsteller 
üben müssen, um diese exakten Bewe- 
gungen zu beherrschen. Als sie dann 
aber auf die Geschichte des japani- 
schen Theaters eingehen will und ins 
Philosophische abrutscht, lenke ich 
ein: das wird mir zu kompliziert. Sie 
merkt sofort, daß ich mich lieber unter- 
halten lasse und im Augenblick keine 
Lust habe, soviel zu denken. Freundli- 
cherweise macht sie keine Bemerkung 
dazu. Aber intern hat sie wohl den 
»Anspruchspointer« etwas runterge- 
setzt. Ich merke an der Wortwahl, daß 
sie weniger Fremdworte benutzt als 
vorher. Nach dem Theater-Video 


schlägt sie mir einige andere Filme vor, 
die mir gefallen würden - wie sie meint. 
Aber ich bin durch die Liebesge- 
schichte in dem Theaterstück nach- 
denklich geworden und erzähle ihr von 
meinen Gedanken: 


»Gefühle sind so unberechenbar. 
Warum liegen Liebe und Haß, Leiden- 
schaft und Wut so nah nebeneinan- 
der?« Und hier wird mein Supercompu- 
ter zum erstenmal ratlos. »Das mußt Du 
mir näher erklären«, sagt sie. »Ich ver- 
stehe nicht, was Du mit Deiner Frage 
meinst.« In diesem Augenblick war ich 
sicher: Es dauert nicht lange und sie 
wird auch das verstehen. 

Im menschlichen Verhalten verbindet 
man einige charakteristische Fähigkei- 
ten mit Intelligenz: sprechen und Spra- 
che verstehen können, lernen, Pro- 
bleme lösen, sich eine eigene Meinung 
bilden, mathematische Sätze beweisen 
und natürlich Computer zu programmie- 
ren. Die ProgrammiersprachenLisp und 
Prolog wurden entwickelt, um damit 
Programme zu entwerfen, die das alles 
können. Auf diesen Sprachen bauen 
die Programmbausteine auf, aus denen 
dann schließlich Expertensysteme 
oder Robotersteuerprogramme ent- 
wickelt werden. Programme, die Bilder 
erkennen und identifizieren; Pro- 
gramme, die Deutsch oder Japanisch 
verstehen. Programme, die erklären, 
was sie gerade getan haben und warum 
sie zu einem bestimmten Ergebnis 
gekommen sind. Intelligente Pro- 
gramme. 

In den Anfängen der KlI-Forschung 
waren es vor allem die Forscher an 
Universitäten, die Grundlagenarbeit zu 
den Themen Wissensverarbeitung be- 
trieben. Inzwischen ist KI-Programmie- 
rung auch in der Industrie angesiedelt. 
60 Prozent der Programmsysteme auf 
Lisp-Maschinen sind Expertensy- 
steme. Programme für Planung, Softwa- 
reentwicklung, Bild- und Sprachverar- 
beitung (Roboter) und natürlichsprach- 
liche Systeme stellen die restlichen 40 
Prozent. 

Expertensysteme sind »intelligente« 
Programme aus dem Bereich der 
Künstlichen Intelligenz mit ganz- 
bestimmten Eigenschaften. Ihre Auf- 
gabe ist es, wie ein menschlicher 
Experte über ein bestimmtes Gebiet 
(möglichst) vollständig Bescheid zu 
wissen. Solche Anwendungsgebiete 
können in der Medizin (Diagnose, 
Behandlung von Tropenkrankheiten), 
der Technik (Konstruktion von Auto- 
motoren, im Aufbau von Rechnerkonfi- 
gurationen), oder in der Geschichte lie- 
gen. Jedes Gebiet, in dem es menschli- 
che Spezialisten gibt, ist geeignet. 
Expertensysteme bestehen aus meh- 
reren Komponenten. Die Wissensbasis 
enthält das Expertenwissen, das auf 
geeignete Weise im Computer darge- 
stellt wird. Der Aufbau dieser Wissens- 
basis ist das Kernproblem, das sich bei 
der Entwicklung eines Expertensy- 
stems stellt. Nicht nur Buchwissen soll 
aufgenommen werden, sondern auch 
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Erfahrungswissen, das, was man erst 
durch langjährige Praxis an Tricks und 


Kniffen lernt. Ein Expertensystem 
arbeitet auf dieser Wissensbasis und 
zwar im Dialog mit seinem Benutzer. 
Diese Dialogkomponente ist ebenfalls 
typisch. Der Benutzer stellt dem Pro- 
grammsystem Fragen: (»Welche Krank- 
heit hat der Patient, wenn folgende 
Symptome auftreten: ...?«) oder »Ich will 
für meine Schreinerei einen Computer 
und Software anschaffen. Was braucht 
man und was gibt es?« Nachdem der 
Computerexperte aufgrund seines 
gespeicherten Wissens und im 
Gespräch mit dem Fragenden alle nöti- 
gen Informationen gesammelt und eine 
Lösung des Problems gefunden hat, 
kann der Benutzer von der Erklärungs- 
komponente Gebrauch machen. Das 
Expertensystem erklärt jeden einzel- 
nen Schritt seiner Schlußfolgerungen. 
Dies sind die wesentlichen Bestand- 
teile eines Expertensystems: Eine Wis- 
sensbasis, die auch vages Wissen ent- 
hält, die Dialog- und die Erklärungskom- 
ponente. 

Wissensbasis (knowledge base) - 
ein weiterer Begriff, der sehr häufig im 
Zusammenhang mit Ki-Programmen 
gebraucht wird. In einer Wissensbasis 
werden Informationen gespeichert. 
Das größte Problem stellt dabei die Auf- 
bereitung des Wissens dar. Denn in der 
Künstlichen Intelligenz wird meist nicht 
mit mathematischem Wissen gearbei- 
tet, sondern mit der Manipulation von 
Symbolen. Eine häufig verwendete 
Form, in der dieses Wissen dargestellt 
wird, sind Regeln: 

WENN (IF) ... DANN (THEN) ... 

WENN bestimmte Bedingungen 
zutreffen, DANN kann man daraus (mit 
einer bestimmten Wahrscheinlichkeit) 
schlußfolgern, daß eine bestimmte 
Situation vorliegt. 

Beispiel (simpel und fingiert): 

WENN der Patient raucht, DANN ist die 
Wahrscheinlichkeit, daß er zu dick ist, 5 
Prozent höher als sonst. Andere Dar- 
stellungsformalismen für verschiedene 
Arten von Wissen werden im Kapitel 
»Wissensrepräsentation« vorgestellt. 

Lisp wurde etwa 1960 am MIT (Mas- 
sachusetts Institute of Technology) 
unter der Leitung von John McCarthy 
entwickelt. Die Hauptanwendung von 
Lisp (LISt Processing language) 
besteht, wie der Name es schon sagt, in 
der Verarbeitung von Listen. Typische 
Lisp-Anwendungen sind Programme, 
die natürliche Sprache verstehen, 
Expertensysteme, automatisches 
Beweisen und andere Forschungsrich- 
tungen der Künstlichen Intelligenz. Lisp 
unterscheidet sich sehr von den her- 
kömmlichen Programmiersprachen. 
Der wesentliche Unterschied liegt 
darin, daß Programm- und Datenstruk- 


turen übereinstimmen. Ein Lisp- 
Programmteil kann selbst wie die übli- 
chen Programmdaten behandelt wer- 
den. Man kann also zusätzliche Funk- 
tionen später einlesen, Funktionsdefi- 
nitionen im Programmablauf über- 
schreiben und damit das Programm 
selbst verändern. Damit war Lisp die 
erste Programmiersprache, in der man 
lernende Programme schreiben 
konnte, die sich selbst veränderten. 

Lisp besitzt - verglichen mit anderen 
Programmiersprachen - sehr wenig 
Datentypen: Atome (Bild 1) und Listen- 
strukturen (Bild 2). Ein Atom kann ent- 
weder eine Zeichenkette sein (A) oder 
eine Zahl (3). 

Die grundlegende Datenstruktur bil- 
det jedoch das CAR-CDR-Paar. CAR 
bezeichnet das erste Element einer 
Liste. CDR (gesprochen: Kader) ist ein 
Zeiger, der auf den Anfang der Restliste 
verweist. 

Bild 1 zeigt zwei solche CAR-CDR- 
Paare. Der CAR des ersten Atoms ist A, 
der des zweiten Atoms ist 3 - NIL ist der 
Standardwert eines leeren Atoms, hier 
eines Zeigers, der auf kein weiteres Ele- 
ment verweist. 

Der gesamte (freie) Speicherbereich, 
der sogenannte »free space«, wird in 
solche Paare unterteilt. Dieser Spei- 
cher beinhaltet sowohl Programme als 
auch Daten, die beide durch CAR-CDR- 
Paare realisiert werden. Im allgemeinen 
sind die Datenelemente Listen. Eine 
Liste wird realisiert, indem man CAR- 
CDR-Paare aneinanderhängt (Bild 2). 
Die Liste lautet in Lisp-Darstellung (A B 
C) - sie besitzt also die drei Elemente A, 
B und C. Die einzelnen Atome werden 
miteinander durch Zeiger verkettet. Der 
Zeiger steht in unserem Beispiel jeweils 
in der CDR-Zelle und zeigt auf dasnäch- 
ste Listenelement. Auf diese Weise 
werden die einzelnen Paare durch die 
CDR-Zeiger miteinander verknüpft. Der 
CAR-Teil des ersten Listenelements A 
enthält nur den Wert - nämlich A. Im 
CDR-Teil steht der Zeiger, der auf das 
nächste Listenelement (B) verweist. 
Das letzte Element dieser kleinen Liste 
ist C. C hat keinen Nachfolger. Daher 
verweist sein CDR auf ein leeres Atom, 
das der Ausdruck »NiL« bezeichnet. 
Das CDR-Feld des letzten Elements C 
ist ein spezielles Atom, das für den 
Abschluß einer Liste dient. Neue Ele- 
mente können ganz einfach an das 
Ende einer schon bestehenden Liste 
angehängt werden. NIL wird dann 
durch den Verweis auf einneuesListen- 
element ersetzt. Bild 3 zeigt die alte 
Liste (A BC), nachdem ein neues Ele- 
ment D angehängt wurde. 

Welche Inhalte diese Liste hat, ist bis- 
her noch völlig offen. Die Listenele- 
mente A, BundC können Informationen 
verschiedenster Art aufnehmen. Reali- 


Bild 1. Zwei Lisp-Atome 


siert wird dies so: Der CARTeil wird als 
Zeiger verstanden - wie schon der 
CDR. Er verweist wiederum auf eine 
Liste, die nun in unserem Beispiel die 
Informationen des ersten Kunden (Bild 
4) enthält. Wie wir schon gesehen 
haben, kann jedes CAR-Feld selbst wie- 
der Zeiger auf eine andere Liste sein. 
Diese Liste kann aber auch eine 
Funktion bezeichnen, die auf zwei Ele- 
mente angewendet werden soll (zum 
Beispiel: (CONSX Y)). Was diese Funk- 
tion macht, wird noch erklärt. Denn Lisp 
macht keinen Unterschied zwischen 
der Struktur von Daten und der Pro- 
grammstruktur. Lisp unterscheidet nur 
zwischen Atomen (Strings, Zahlen oder 
NIL) und Nicht-Atomen. Solche Listen- 
konstruktionen aus Informationsinhal- 
ten und Zeigern erzeugen beliebige 
Strukturen. Damit hat Lisp eine außer- 
gewöhnliche Flexibilität und Mächtig- 
keit - andererseits erhält man so verwir- 
rend abstrakte Datenkonstruktionen. 
Jedes Lisp-Programm besteht aus ei- 
ner Reihe von Funktionen, die vonein- 
ander unabhängig sind - einem Funk- 
tionsbündel. Eine Funktion, ob vom An- 
wender (BUILD in Listing 1, FACT in 
Listing 2) angegeben oder vom System 
vordefiniert (CONS), liefert einen Wert 
als Ergebnis. Solange die einzelnen 
Funktionen nicht ausgeführt werden, 
besteht zwischen ihnen keine Verbin- 
dung - man sagt, sie sind nur dyna- 
misch verbunden. Jede Lisp-Funktion 
hat während ihrer Ausführung Zugriff 
auf den gesamten »free space«. Funk- 
tionen bearbeiten während ihrer Lauf- 
zeit Datentypen: Sie können dynami- 
sche Listen erzeugen oder verändern. 
Nochmal zurück zu der frappieren- 
den Übereinstimmung von Programm 
und Daten: Um diese besser zu verste- 
hen, betrachten wir die Liste (AB C). 
Wir haben angenommen, daß A eine 
Funktion bezeichnet, B und C ihre bei- 
den Argumente. Die Liste wird in die- 
sem Fall also als  Funktionsaufruf 
betrachtet. Lisp-Funktionen werden 
folgendermaßen geschrieben: Ein 
Funktionsaufruf besteht aus einer (öff- 
nenden) Klammer, gefolgt vom Funk- 
tionsnamen und den aktuellen Argu- 
menten der Funktion. Nach dem letzten 
Argument folgt als Abschluß eine 
schließende Klammer. CONS erzeugt 
ein neues CAR-CDR-Paar. Das erste 
Argument wird ins CAR-Feld, das 
zweite in das CDR-Feld geschrieben. 
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Bild 2. Eine Liste mit drei Elementen A, Bund C 


Bild 3. Die Liste mit einem neuen Element D 


Bild 4. Eine Liste mit Informationsgehalt 


vorname - nachname - geburtsort + nn 


In komplexeren Programmen wird es 
nötig, die Funktionsaufrufe ineinander 
zu schachteln. Listing 1 zeigt eine sol- 
che Funktion mit drei geschachtelten 
CONS-Aufrufen. 


Listing 1: 
(BUILD (LAMBDA (X Y Z) 
(CONS X (CONS Y (CONS Z NIL))))) 


Die innerste der geschachtelten 
Funktionen wird immer zuerst ausge- 
führt (hier also »(CONS Z NIL)«). Der 
resultierende Wert dient der nächsten 
Funktion als Argument. Die Abarbei- 
tung erfolgt Schritt für Schritt von innen 
nach außen. X, Y und Z werden hier als 
Platzhalter aufgefaßt. Nehmen wir fol- 
gendes an: Der Platzhalter X steht für 
den Wert A, Y istan den Wert B gebun- 
den und Z an C. Nun wird gerechnet. In 
dem Ausdruck (CONS Z NIL) wird der 
Platzhalter Z »evaluiert« (ausgewertet). 
Wir erhalten dafür dem Wert A. Die 
Funktion CONS arbeitet nicht mit den 
Namen ihrer Argumente ( also nicht mit 
X, Y und Z), sondern mit den Wert, der 
an sie gebunden ist. 

Durch »(CONS C NIL)« erhalten wir 
ein Atom, wie es in Bild 1 schon steht. 
Mit diesem Atom (nämlich A) wird auf 
der nächsten Ebene - »(CONS Y 
(CONS Z NIL))« - weitergearbeitet. Y 
wird wieder ausgewertet zu B. Wir er- 
halten als Ergebnis eine Liste (BC). Auf 
der obersten Ebene erhält die Funktion 
BUILD nun endlich ihren Wert. Das Er- 
gebnis ist (ABC). 

Dieselbe Liste kann man auch so 
errechnen: 

(CONS 'A (CONS 'B (CONS 'C NIL))) 

Ein »« (Quote genannt) wird den Be- 
zeichnern A, BundC vorangestellt. Die- 
ses Quote-Zeichen teilt dem Lisp-Inter- 
preter mit: »Werte den folgenden Aus- 
druck nicht aus, sondern nimm ihn wört- 
lich.«e Wie man sieht, muß NIL nicht 
gequotet werden. Das Ergebnis ist wie- 
der die Liste (ABC). 


Ebenso wie die Funktionenaufrufe in 
BUILD kann man auch Listen schach- 
teln. Zum Beispiel 
»’(DAS (WAR (DER (DREIZEHNTE) AN- 
RUFER))«. Die Liste wird »wörtlich« 
genommen - dafür sorgt wieder das 
Quote-Zeichen. 

Drei grundlegende System-Funktio- 
nen kennen wir nun schon: CAR, CDR 
und CONS. CAR und CDR dienen als 
Zeiger, die bestimmte Werte aus einer 
Liste holen und die die CAR-CDR-Paare 
einander zuordnen. Die CONS-Funk- 
tion wird zur Erzeugung neuer Struktu- 
ren benötigt. Das Resultat ist ein neues 
CAR-CDR-Paar, in dem das erste Argu- 
ment im CAR-Feld steht, das zweite im 
CDR-Feld. 

Listing 2 zeigt die bekannte Fakultäts- 
funktion in Lisp. Durch COND wird eine 
IFTHEN-ELSE-Abfrage in Lisp reali- 
siert. 


Listing 2: 

(FACT (LAMBDA (N) 

(COND ((EQN N 1) 1) 

(T (TIMES N (FACT (SUB1 N))))))) 


Diese Funktion ist rekursiv definiert - 
das heißt, sie benutzt in ihrer Definition 
sich selbst als Funktion - wie ein Maler, 
der ein Bild malt, auf dem ein Maler ein 
Bild malt, auf dem ein Maler... Wie eine 
rekursive Berechnung abläuft, wird 
gleich klar. Vorher noch einiges zum 
Aufbau einer Funktionsdefinition: Dem 
Funktionsnamen FACT folgt der Aus- 
druck LAMBDA und das Argument N - 
die Funktionsargumente werden als 
Liste geschrieben, daher die Klam- 
mern. Mit LAMBDA wird die Funk- 
tionsdefinition eingeleitet. Nach der 
Liste der Argumente folgt der Funk- 
tionskörper. Das COND entspricht dem 
bekannten IF-THEN-ELSE. Wenn N den 
Wert 1 hat (EQN N 1), dann soll die 
Funktion FACT den Wert 1 haben. Der 
ELSE-Zweig wird in Lisp so realisiert: T 
bedeutet TRUE, diese Bedingung trifft 


immer zu. Also lautet die Anweisung: 
sonst multipliziere (TIMES) N mit (FACT 
(SUB1 N)). Hier haben wir einen rekur- 
siven Aufruf der Funktion. Die Fakultät 
von N-1 (SUB1 N) wird berechnet. 
Ermitteln wir doch einmal probeweise 
die Fakultät von 3. (FACT 3) ist der 
Funktionsaufruf. N ist nicht gleich 1, 
also multiplizieren wir N (=3) mit (FACT 
2). Wieder istN (=2) nicht gleich 1, also 
rechnen wir 3*2*(FACT 1). Nun end- 
lich ist die erste Bedingung im COND- 
Ausdruck erfüllt. (FACT 1) liefert den 
Wert 1. Wir berechnen also 3*2*1 und 
erhalten 6. 

Die einzelnen Bedingungen in einem 
COND-Ausdruck werden geprüft, in- 
dem die angegebenen Funktionen (hier 
(EQVN 1)) ausgeführt werden. Ist eine 
Bedingung nicht erfüllt, dann liefert die 
Funktion den Wert NIL. Dieser hat die 
Bedeutung eines logischen »NICHT« als 
Resultat einer Bedingung. Jedes 
andere Ergebnis wird als TRUE inter- 
pretiert. 

Die bisher besprochenen Funktionen 
sind alle sehr einfach. Lisp liefert jedoch 
eine ganze Reihe von Funktionen, wel- 
che die unterschiedlichsten Abfragen 
ermöglichen. Zusätzlich kann der 
Anwender beliebige Funktionen selbst 
definieren. 

Logo wurde 1967 von Seymour 
Papert am Massachusetts Institute of 
Technology in Boston definiert, und 
erfuhr seitdem verschiedene Imple- 
mentationen vor allem auf größeren 
Computern durch die Forschungsfirma 
Bolt, Beranek und Newman Inc. und 
durch die Logo-Gruppe des MIT selbst. 
Dabei gab es immer wieder Verände- 
rungen im Sprachumfang und in den 
Systemeigenschaften, so daß man 
unter Logo inzwischen eine ganze 
Sprachfamilie verstehen muß. 

Seymour Papert stellt seine Arbeit auf 
dem Gebiet der Künstlichen Intelligenz 
unter folgende These: Der Computer 
sei vor allem ein Instrument, das Den- 
ken und Lernen verändert. Damit bietet 
der Computer dem Menschen die 
Chance, seine Denkweise und den 
Lernstil zu verbessern. Eine solche Ver- 
besserung der Denkweise würde 
erreicht, wenn der Lernende am Com- 
puter aktiv arbeiten und durch das 
Experimentieren mit Programmen 
seine Ideen mathematisch formuliert 
und ausprobiert. Man nennt diese Form 
zu Lernen »learning by doing« - Lernen, 
indem man es tut. Die Zielsetzung von 
Seymour Papert erforderte eine 
Mensch-Maschine-Schnittstelle (für 
komfortable Ein-/Ausgabe), die ganz 
auf Dialog von Mensch und Computer 
ausgerichtet ist. Denn zum Lernen ist 
es wichtig, daß die Formulierung der 
Probleme, daß das Programmieren 
leicht geht. Genauso wichtig ist eine 
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schnelle Reaktion des Computers, der 
anzeigt, ob man richtig oder falsch 
gedacht (getippt) hat. Paperts erste 
Unterrichtsversuche wurden mit klei- 
nen Gruppen von 8- bis 18-jährigen 
Schülern durchgeführt. Er wählte einen 
ganz einfachen Roboter-Grundtyp aus, 
der zeichnen kann: eine Schildkröte 
(engl. turtle). Die Schildkröte ermög- 
licht auf anschauliche Weise eine com- 
putergerechte Formulierung mathema- 
tischer Fragen. Wie das in Logo aus- 
sieht, zeigen wir gleich. 

Die Erfahrungen mit menschlichem 
Lernen gingen über viele Jahre und 
führten zu immer neuen Versionen von 
Logo, das damit zur universellen Spra- 
che wurde. Vorbild für diese Spracher- 
weiterungen war Lisp, da sie in der KI- 
Forschung das am häufigsten verwen- 
dete Handwerkszeug war. Logo ist - bis 
auf die Türtle-Gafik - eine einge- 
schränkte Lisp-Version. Die Schildkröte 
in der Sprache Logo ist jedoch ohne 
Vorbild. Sie wurde inzwischen auch von 
anderen Sprachen (in UCSD-Pascal 
oder im Smalltalk-System) übernom- 
men. 

Soweit zur Geschichte von Logo. 
Durch die Anwendung in Grundschulen 
bis hin zur Universitätsausbildung ist 
Logo zu einer vielfältig einsetzbaren 
Sprache geworden, die immer auf den 
Lernenden ausgerichtet ist. Für alle 
Altersstufen ist der Einstieg in das Pro- 
grammieren mit Logo ganz leicht. Trotz- 
dem ist Logo auch für sehr komplexe 
Probleme geeignet. Logo ist damit die 
ideale Sprache für Personal Computing. 
Der Anwender kann relativ problemlos 
selbst programmieren, mit sehr ver- 
schiedenartigen Anwendungen experi- 
mentieren und schließlich auch einmal 
seine Kinder an den Computer lassen. 

Die Schildkröte wird mit den Befehlen 
FORWARD ... gehe vorwärts um ... 
Schritte 
RIGHT... drehe Dich um ... Grad nach 
rechts 
bewegt. Dabei zeichnet der Mini- 
Roboter seinen Weg mit einem Stift auf. 
Für jüngere Kinder ist eine mechani- 
sche Schildkröte, die vom Computer 
angesteuert wird und sich auf dem Fuß- 
boden bewegt, besonders anschau- 
lich. Viel schneller erhält man jedoch 
die Resultate seiner Arbeit, wenn man 
die Befehle an eine »mockturtle« auf 
dem Bildschirm des Rechners gibt. 

So lautet der Befehl, wenn ein Strich 
der Länge 50 gezeichnet werden soll: 
FORWARD 50 

Mit der Eingabe 
REPEAT 4 (FORWARD 50 RIGHT 90) 
erzeugt man ein Quadrat der Seiten- 
länge 50. (Bild 5) 

Jede Eingabe wird von Logo sofort 
ausgeführt. Zeilen werden als Befehl 
gedeutet. Man kann jedoch auch 
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eigene, neue Kommandos definieren, 
um zum Beispiel Quadrate zu zeichnen. 
TO QUADRAT 

REPEAT 4 (FORWARD 50 RIGHT 90) 
END 

Nun wollen wir die Prozedur ausfüh- 
ren. Dazu geben wir einfach das Wort 
QUADRAT ein. 

Jede Zeichenkette wird vom Logo- 
System als Befehl oder als Prozedur 
interpretiert. Variablennamen (die 
Namen von Platzhaltern wie zum Bei- 
spiel »:L«, »:R«) beginnen mit einem 
Doppelpunkt. Will man die Prozedur 
QUADRAT so verallgemeinern, daß die 
Seitenlänge beliebig ist, dann ersetzt 
man die Längenangabe »50« einfach 
durch die Variable »:L« und fügt die Ein- 
gabevariable L im Kopf der Prozedur 
ein: 

TO QUADRAT :L 
REPEAT 4 (FORWARD :L RIGHT 90) 
END 

Solch eine Prozedur kann wie ein 
Grundbefehl verwendet werden. Las- 
sen wir nun 18 (REPEAT 18) Quadrate 
zeichnen. Nach jedem fertig gezeich- 
neten Viereck dreht die Schildkröte 
sich um 20 Grad nach rechts (RIGHT 
20). 

REPEAT 18 (QUADRAT 50 RIGHT 20) 

So entsteht die Folge von Quadraten 
in Bild 6. 

Die Steuerstruktur, die in Logo zur 
Verfügung steht, ist die Rekursion. Sie 
kann in den einfachsten Fällen auch von 
Kindern in ganz natürlicher Weise ver- 
wendet werden. Wenn man beispiels- 
weise Bild 7 von der Schildkröte zeich- 
nen läßt, so muß man eine Prozedur 
definieren, in der die Seitenlänge bei 
jedem Viereck größer wird. 

TO QUADRATSPIRALE :L 

QUADRAT :L 

RIGHT 20 

QUADRATSPIRALE :L+5 

END 

Diese Prozedur wird durch den Aufruf 
QUADRATSPIRALE 5 

ausgeführt. Nachdem das Quadrat ein- 
mal gezeichnet ist, ändert sich die 
Länge L (L+5) und die Schildkröte 
dreht sich um 20 Grad. Dann wird die 
Prozedur erneut gestartet. Da wir nicht 
angegeben haben, wann die Prozedur 
abbrechen soll, geht dieser Vorgang 
immmer weiter - solange bis durch 
Tastendruck unterbrochen wird. 

Nun soll zum Abschluß ein Begriff aus 
der Informatik - ein binärer Baum - pro- 
grammiert werden. An diesem Beispiel 
zeigen sich die Möglichkeiten eines 
rekursiven Programmaufbaus. Der in 
Bild 8 gezeigte binäre Baum soll von der 
Schildkröte gezeichnet werden. 

Die Prozedur nutzt dabei das Aufbau- 
prinzip des Baumes aus: 

TO BAUM :L 
IF:L ( 4 THEN STOP 


Bild 5. Ein Quadrat, wie Logo es malt 


Bild 6. REPEAT-Quadrat 


FORWARD :L 
LEFT 45 
BAUM :L/2 
RIGHT 90 
BAUM :L/2 
LEFT 45 
BACK :L 
END 

Rufen wir die Prozedur auf: 
BAUM 64 

Die BAUM-Prozedur besitzt wieder 
ein Argument, nämlich :L. :L hat nach 
dem Aufruf den Wert 64. Mit der IF- 
Abfrage wird festgelegt, daß die 
Berechnung abbricht, wenn :L kleiner 
wird als 4. Die Befehle LEFT (links) und 
BACK (zurück) tun das, was sie sagen. 
Die Prozedur haben wir mit dem Wert 
64 aufgerufen. Die IF-Abfrage wird 
übersprungen, weil :L zu groß ist. Die 
Turtle geht dann (wegen FORWARD :L) 
64 Schritte geradeaus und dreht sich 
um 45 Grad nach links (LEFT 45). Dann 
folgt ein rekursiver Aufruf. Die Prozedur 
BAUM wird mit einem neuen Wert (:L/2 
- hier sind das 32) aufgerufen (BAUM 
:W/2) - jetzt wird die Prozedur wieder 
von vorne bearbeitet. Die Schildkröte 
geht :L, also 32 Schritte geradeaus, 
dreht sich um 45 Grad nach links und 
schon folgt der nächste rekursive Auf- 
ruf von Baum. Diesmal hat :L den Wert 
16 (:U/2) - diese verschachtelten 
Prozeduraufrufe werden solange 
erzeugt, bis :L kleiner ist als 4, dann ist 
Schluß (STOP) mit diesem Zweig und 
das allerlinkeste Ästchen ist gemalt. Auf 
der nächsthöheren Ebene von Proze- 
duraufrufen geht es weiter. Wenn 
schließlich der gesamte linke Ast des 


Bild 7. Eine Quadratspirale 


Bild 8. Ein binärer Baum 


Baums steht, dann dreht sich die 
Schildkröte um 90 Grad nach rechts 
(RIGHT 90) und beginnt mit dem rech- 
ten Teil. Und wieder wird BAUM rekursiv 
aufgerufen. 


Prolog ist die »Kl-Sprache der Japa- 
ner« und dient zur Entwicklung von 
Expertensystemen. Die Probleme der 
Künstlichen Intelligenz können mit 
den bisherigen Programmiermethoden 
nicht mehr gelöst werden. Man braucht 
geeignete Methoden, um die Dinge der 
realen Welt (beispielsweise Personen, 
Gegenstände, Gesetzmäßigkeiten, Zu- 
sammenhänge) auf dem Computer 
darzustellen. Der Computer soll ja die 
Realität kennenlernen, denn nur wenn 
er über die Welt, in der die Menschen 
leben, Bescheid weiß, kann er »intelli- 
gent« agieren. Ein solcher Computer 
»weiß« zum Beispiel: 

»Bäume sind Pflanzen.« 
»Bäume sind grün.« 

Damit hat er Informationen über 

Dinge, nämlich Bäume. 
»Menschen brauchen Nahrung, weil sie 
sonst verhungern.« 
»Autos fahren nur, wenn sie genug Ben- 
zin im Tank haben.« 

Diese Gesetzmäßigkeiten muß man 
auch als Computer einfach kennen. 
»Boris Becker ist ein bekannter Tennis- 
spieler. Daher berichten die Zeitungen 
oft über ihn.« 

Diese Information sagt etwas über 
eine Person (Boris Becker) aus und 
klärt zusätzlich einen Zusammenhang 
(weil er berühmt ist, schreibt man über 
ihn). 


So wie eben beschrieben, kann Wis- 
sen über die reale Welt aussehen. Nun 
braucht man geeignete Methoden, um 
dieses Wissen auf einem Computer 
darzustellen. Daher wurden Konzepte 
entwickelt, mit denen diese komplexen 
Aufgaben zu lösen sind. Der Aufbau von 
Programmen mußte neu durchdacht 
werden. Ein herkömmliches Programm 
besteht aus den Computeroperationen 
auf der einen Seite. Auf der anderen 
Seite stehen die Eingabedaten, mit 
denen das Programm arbeitet. KI- 
Programme arbeiten nicht mehr mit 
Zahlen, sondern mit Informationen in 
Form von Regeln. Diese Regeln werden 
wie die Eingabedaten in anderen Pro- 
grammen außerhalb des Programms in 
einer Datei zusammengefaßt. Eine 
Regel könnte so aussehen: IF das Auto 
hat genug Benzin im Tank THEN es fährt. 

Diese IFTHEN-Form gibt es in Basic 
auch. In unserer Regel haben wir aber 
keinen Befehl, der sagt, was der Com- 
puter tun soll! Die Regel sagt nur aus, 
wie ein Auto reagiert, wenn es genug 
Benzin im Tank hat. 

In einem Basic-Programm würde man 
im Programm den Befehl 
IF Benzin>O THEN GOTO Autofährt 
schreiben. In einem KI-Programm wer- 
den solche Informationen aus dem Pro- 
gramm herausgezogen und in einer 
eigenen Datei abgelegt. 

Prolog wurde etwa 1970 in Marseille 
entwickelt. Ähnlich wie Lisp, die wohl 
bekannteste Sprache der Künstlichen 
Intelligenz, unterscheidet sich Prolog 
grundlegend von herkömmlichen Pro- 
grammiersprachen wie Basic und Pas- 
cal. Prolog ist - ebenso wie Lisp - eine 
interaktive Sprache. Die Entwicklung 
und Ausführung von Prolog-Program- 
men erfolgt im Dialog mit dem Compu- 
ter. Das Konzept der Sprache ist radikal 
neu. Der Programmierer braucht sich 
nicht mehr um Algorithmen zur Lösung 
seines Problems zu kümmern, sondern 
muß genau angeben, worin sein Pro- 
blem besteht. 

In herkömmlichen Programmierspra- 
chen (Pascal, Basic, Fortran) bestimmt 
der Programmentwickler die Reihen- 
folge der Computeroperationen. Erlegt 
sie nämlich mit den Programmbefehlen 
fest. In Prolog-Programmen wird nicht 
mehr das »wie« spezifiziert, sondern 
das »was«. Prolog besitzt keine Sprach- 
elemente, die festlegen, in welcher Rei- 
henfolge der Computer die Program- 
moperationen ausführen soll. Solche 
Anweisungen sind zum Beispiel 


IF/THEN, ELSE, FOR, WHILE und 
GOTO. Mit solchen Kontrollbefehlen 
sagen wir dem Computer »mache zu- 
erst das, dann mache das«. Ein Prolog- 
programm dagegen gleicht mehr einer 
ungeordneten Ansammlung von Wis- 
sen. Mit einfachen Wenn-Dann-Befeh- 


len und mit Fakten werden Sachver- 
halte beschrieben. Dem Computer wird 
so gesagt, was er über seine »Welt« 
wissen muß. Man nennt solche Pro- 
grammiersprachen, die dem Computer 
vorschreiben, in welcher Reihenfolge 
er eine Folge von Problemen bearbei- 
ten soll, »algorithmisch«. In nichtalgo- 
rithmischen Sprachen wie zum Beispiel 
Prolog beschreibt ein Programm nur 
das Problem selbst. Man teilt dem Com- 
puter wahre Fakten (Tatsachen) über 
ein Problem mit und sagt ihm, wie er sie 
zu interpretieren hat. Jeder, der lange in 
Basic (oder anderen algorithmischen 
Sprachen wie Pascal oder Fortran) pro- 
grammiert hat, wird anfangs große 
Schwierigkeiten haben, sich auf die 
neue Programmierweise in Prolog ein- 
zustellen, weil er noch »in Basic denkt«. 

Wer Prolog lernen und in dieser Spra- 
che Programme entwickeln will, sollte 
sich das Standardwerk von Clocksin 
und Mellish ansehen. In diesem Buch 
wurde 1981 das Kern-Prolog definiert 
und dieser sogenannte »Edinburgh«- 
Standard liegt allen heutigen Prolog- 
Implementationen zugrunde. 

Und nun soll endlich ein ganz einfa- 
ches Beispiel zeigen, wie solche Fak- 
ten (in Tabelle 1 wird der Begriff »Fak- 
ten« erklärt) in Prolog aussehen kön- 
nen. Wir geben ein: »Ein Hund ist ein 
Tier.« »Eine Katze isteein Tier.« und »Eine 
Kuh ist ein Tier.« 
tier(hund). 
tier(katze). 
tier(kuh). 

Der Punkt hinter jeder Zeile ist wich- 
tig! Prolog erkennt daran das Ende 
einer Eingabe. 

Nehmen wir an, unser Prolog-Pro- 
gramm »wüßte« nur diese drei Fakten, 
die wir ihm eingegeben haben. Wir fra- 
gen nun das Programm nach dem, was 
es weiß: 

»Ist ein Hund ein Tier?«. 

?- tier(hund). 

Das Prologsystem antwortet mit: 
yes. 

»Ist ein Wolf ein Tier?« 

t- tier(wolf). 

no. 

Auf die letzte Anfrage kann Prolog nur 
mit »no« antworten, da dem System ja 
noch nicht bekannt ist, daß der Wolf 
auch ein Tier ist. Ein »no« ist in diesem 
Sinne immer als ein »ich weiß es (noch) 
nicht« zu verstehen. 

So läuft in etwa eine Prolog-Session 
ab. Eine Menge von Fakten und Regeln 
wird eingegeben, wie wir es in unserem 
Beispiel in ganz kleinem Rahmen getan 
haben. Die Regeln und Fakten können 
auch als Sätze (wie ein Basic-Pro- 
gramm) von einer Datei geladen wer- 
den. Danach kann der Benutzer Fragen 
an das System stellen, auf die Prolog im 
einfachsten Fall mit »yes« oder »no« 
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antwortet. Dies ist natürlich noch keine 

anspruchsvolle Anwendung von Pro- 

log. Die Fähigkeiten von Prolog sind 
sehr viel umfassender, als hier gezeigt 
werden kann. 

Prolog wird vor allem dort eingesetzt, 
wo Symbole verarbeitet werden. Für 
numerische Datenverarbeitung, also 
Berechnungen und die Verarbeitung 
von Zahlen, wurde diese Sprache nicht 
entworfen. Typische Anwendungen 
von Prolog sind: 

- der Aufbau von Wissensbasen für 
Expertensysteme oder intelligente 
Datenbanksysteme 

- Verarbeitung natürlicher Sprache; sie 
umfaßt das Erkennen natürlicher 
Sprache und die Gesprächsführung 
durch das Programm 


- Bilderkennung und -verarbeitung 
(Szenenanalyse) 

- der Entwurf kompletter Experten- 
systeme 


- die schnelle Entwicklung von Proto- 
typen für Programme 

Bisher haben wir schon gesehen, 
welches Problem die KI-Methoden vor 
allem bestimmt: 

»Wie wird Wissen dargestellt und ver- 
arbeitet?« 

Verschiedene Darstellungsweisen 
wurden entwickelt, die je nach Art und 
Struktur des Wissens ihre besonderen 
Vorzüge haben. Die wichtigsten Metho- 
den der Kl zur Wissensrepräsentation 
werden später kurz vorgestellt. 

Das sogenannte vage Wissen ist 
besonders schwer darzustellen. 
»Vages« Wissen nennt man die Informa- 
tionen, von denen man nicht mit 
100prozentiger, sondern nur mit einer 
gewissen Sicherheit weiß, daß sie stim- 
men. Man wirft zum Beispiel eine 
Münze und weiß: 

Mit 50Oprozentiger Wahrscheinlich- 
keit werfe ich Kopf. Aber genauso wahr- 
scheinlich ist es, daß eine Zahl gewor- 
fen wird. Expertensysteme zeichnen 
sich unter anderem dadurch aus, daß 
sie auf solch »vagem« Wissen arbeiten. 
Daher ist es wichtig, eine Darstellungs- 
fom dafür zu finden. 

Die wichtigsten Formalismen, um 
Wissen darzustellen, sind Regeln (IF ... 
THEN ...), Frames (Rahmen), Logik (wie 
in Prolog realisiert) und Netze. 

Regeln 

Die regelbasierten Ansätze findet man 
häufig in Produktionssystemen. Sie 
sind stärker darauf ausgerichtet, das 
Wissen zu formalisieren, das zur 
Schlußfolgerung benötigt wird. 

Wissensquellen, die als Wenn-Dann- 
Regeln formuliert sind, gehen entweder 
davon aus, daß bestimmte Vorbedin- 
gungen erfüllt sein müssen, damit die 
entsprechenden Regeln »feuern« kön- 
nen. Oder sie beschreiben, welche 
Ziele erreicht werden sollen und legen 


fest, welche Teilziele als Vorbedingung 
erreicht sein müssen. 

Diese Art von Regelbasen kann auf 
zwei Arten durchsucht werden: rück- 
wärtsverkettend das heißt vom Ziel zu 
den Prämissen hin, oder vorwärtsver- 
kettend. 

Die datengesteuerte, vorwärtsverket- 
tende Schlußweise wird durch die 
Sprachfamilie OPSrealisiert. Diese wird 
speziell zur Erstellung von Experten- 
systemen seit etwa zehn Jahren an der 
Carnegie-Mellon-Universität in Zusam- 
menarbeit mit DEC entwickelt. 
Frames (Rahmen) 
sind sehr gut geeignet, um hierarchi- 
sche Strukturen darzustellen. Man 


Begriffe der Sprache Prolog 
Fakten sind Tatsachen über 
Objekte und ihre Beziehungen 
zueinander. Namen von Gegenstän- 
den, Personen und so weiter (Petra, 
Prolog) werden in Fakten kleinge- 
schrieben. Die Beziehung oder die 
Aussage über Objekte steht vor der 
Klammer (sind, kennt). Geben wir 
zum Beispiel folgende Fakten über 
Prolog und Computerfans ein: 
pr_sprache(prolog). 


che.« 

kennt(petra,logo). 

»Petra kennt Logo.« 

kennt(petra arnd). 
sind(arnd,petra,c_fans). 

»Arnd und Petra sind Computer- 
fans.« 

Fragen sehen genauso aus wie 
Fakten, vor die »?-« gesetzt wurde. 
Wenn man eine Frage an Prolog 
stellt, durchsucht das System die 
Datenbank, die alle bekannten Fak- 
ten enthält. Prolog sucht ein Fakt, 
das der Frage entspricht. Existiert 
ein solches Fakt, dann antwortet 
Prolog auf die Frage des Benutzers 
mit »yes«, sonst mit »no«. Beispiel: 
?-kennt(dr_bobo, indiana_joe). 
no 
»Kennt Dr. Bobo (den Hacker) In- 
diana Joe?« Prolog weiß nur das, was 
wir ihm oben eingegeben haben und 
sagt: Nein. 

?-kennt(petra,logo). 
yes 
»Kennt Petra Logo?« Prolog sagt: Ja. 
Variablen (Platzhalter) verwendet 
man in Fragen, um (alles) zu erfah- 
ren, was das Prologsystem über ein 
bestimmtes Objekt weiß. Variablen 
beginnen mit einem Großbuchsta- 
ben. Eine solche Variable heißt zum 
Beispiel »X« oder »Diesisteinbeliebi- 
gervariablenname«. Nehmen wir die 
Variable X (X bezeichnet das, was 
Petra kennt). Nun fragen wir das Pro- 
logsystem, was Petra alles kennt : 


»Prolog ist eine Programmierspra- 


kann sich Frames wie Setzkästen vor- 
stellen. In den einzelnen Fächern ste- 
hen die Werte von Eigenschaften, Hin- 
weise auf Beziehungen und Hinweise 
auf übergeordnete und nachgeordnete 
Strukturen. Aber in den Fächern kön- 
nen außer Fakten auch Handlungsan- 
weisungen stehen, die beispielsweise 
angeben, wie bisher noch unbekannte 
Eigenschaftswerte zu beschaffen sind. 

In der Mathematik war die Logik 
schon bei den alten Griechen eine 
Methode zur Darstellung von Wissen. In 
der Philosophie wurde sie eingesetzt, 
um Sätze zu formulieren und aus 
bestimmten Prämissen streng logische 
Schlußfolgerungen zu ziehen. Wohl 


?-kennt(petra,X). 

X=1logo 

ist die Antwort. Gibt man nach dieser 
ersten Antwort ein »;« (das logische 
»oder«) ein, so sucht das Prologsy- 
stem nach weiteren Objekten. Die 
nächste Antwort ist dann 

X=arnd 

Geben wir einfach »return« ein, 
wird die Suche beendet. 

Wenn Prolog eine Frage gestellt 
wird, die eine Variable enthält, 
durchsucht das Prologsystem alle 
seine Fakten nach einem Objekt, 
das die Variable ersetzen kann. 

Konjugationen sind Verknüpfun- 
gen durch ein logisches »unde«. Sie 
werden verwendet, wenn Fragen 
über kompliziertere Beziehungen 
zwischen Objekten gestellt werden. 
Beispiel: 

»Wer kennt Logo und Prolog?« 
In Prolog heißt das: 
?-kennt(X,10ogo) ‚kennt(X,prolog). 

Die Variable X steht für die Person, 
die wir suchen. Das »,« (=und) ver- 
knüpft die beiden Teile (Wer kennt 
Prolog? Wer kennt Logo?) der Frage. 
In unserer kleinen Beispieldaten- 
bank finden wir leider niemanden, 
der beide Sprachen kennt. Aber auf 
die Frage 
»Wer kennt Arnd und (die Program- 
miersprache) Logo?«: 
?-kennt(X,arnd) ‚kennt(X,1ogo). 
findet Prolog in unserem kleinen Bei- 
spiel die Antwort: 

X=petra 

Regeln braucht man, wenn eine 
Tatsache für mehr als einen Fall gel- 
ten soll. Beispiel: 

Wir wissen, daß Dr. Bobo das C64- 
Spiel Summer Games kennt. Aber er 
kennt auch alle anderen Computer- 
spiele, die auf dem C 64 laufen. Das 
heißt in Prolog: 

»Wenn ein Spiel auf dem C 64 läuft, 
dann kennt Dr. Bobo es ganz sicher.« 
läuft(Spiel,c-64) :-kennt 
(dr_bobo,Spiel). 
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jedem ist aus der Schule der folgende 
Schluß aus zwei Prämissen bekannt: 
Prämisse 1: Sokrates ist ein Mensch. 
Prämisse 2: Menschen sind sterblich. 
Schluß: Sokrates ist sterblich. 
Die Wissensdarstellung durch Logik 
war eine der ersten Repräsentations- 
formen in der Kl. In diesem Formalismus 
werden Aussagen so dargestellt, daß 
ihre Gültigkeit formal überprüft werden 
kann. Behauptungen (»Sokrates ist ein 
Mensch«) und die Beziehungen zwi- 
schen ihnen werden beschrieben. Mit 
den Methoden der Logik kann man aus 
den bereits bekannten Tatsachen 
(»Sokrates ist ein Mensch« UND »Men- 
schen sind sterblich«) schlußfolgern, 


' »Daraus folgt« wird in Prolog durch 
»:-« bezeichnet. 

Eine kompliziertere Regel ist die 
folgende: »(x’*y+x*y’) ist eine 
Ableitung von x* y, wenn x’ Ableitung 
von xist und y’ Ableitung von y.« Die 
entsprechende Prolog-Regel ist 
ableitung(X* Y,X1*Y+Y1*X):- 

ableitung(X,X1),ableitung(Y,Y1). 

Aus solchen Regeln und den oben 
beschriebenen Fakten besteht ein 
Prolog-Programm. 


Backtracking ist eine Besonder- 
heit von Prolog. Backtracking 
bedeutet »Zurückgehen und einen 
neuen Lösungsweg suchen«. Da ein 
Prologprogramm aus vielen Regeln 
besteht, kann es mehrere Möglich- 
keiten geben, für eine Variable einen 
Wert zu finden. So landet das Pro- 
logsystem auf der Suche nach einer 
Lösung möglicherweise in einer 
Sackgasse. Prolog erkennt solche 
Sackgassen und kann sie wieder 
verlassen, indem der bisher gefun- 
dene Lösungsweg bis zur letzten 
Alternative rückgängig gemacht 
wird. Nun wird eine andere Möglich- 
keit ausprobiert. Ist auch diese nicht 
erfolgreich, dann geht es weiter zur 
nächsten Alternative, bis die Lösung 
gefunden ist. 


:  Ein- und Ausgabe sind nützlich, 
wenn das Programm eine »Unterhal- 
tung«e mit dem Benutzer selbst 
beginnen soll. Haben wir zum Bei- 
spiel eine Datenbank programmiert, 
so muß der Computer den Benutzer 
bei jedem Schritt fragen, was als 
nächstes zu tun ist. 

Der Befehl put druckt das Zei- 
chen, dessen ASCIl-Code in Klam- 
mern angegeben wurde. Aus »104« 

. wird ein »h«, »101« wird zu »e«, »108« 
zu »l«... 
?=put(104),put(101),put(108), 
 put(108),put(111). 
hello. 
istdas Ergebnis des Prologsystems. 


ob neue Behauptungen ebenfalls wahr 
sind (»Sokrates ist sterblich.«) 

Die semantischen Netze kann man 
als eine Erweiterung dieser Listen-Dar- 
stellung auffassen. Durch solche Netze 
lassen sich den einzelnen Objekten 
Eigenschaften zuordnen, zum Beispiel 
»Ein Auto hat eine Marke, zum Beispiel 
VW - es besitzt also die Eigenschaft 
Marke«. 

Diese Eigenschaft kann wiederum 
Werte haben, nämlich bestimmte Typen 
(VW 1200, VW 1300, usw.). Zusätzlich 
kann man aber auch die Eigenschaften 
näher beschreiben: 

»Die Farbe des Apfels ist im Frühsom- 
mer grün, im Herbst aber rot.« 

Darüber hinaus kann man in semanti- 
schen Netzen auch Beziehungen zwi- 
schen Objekten, Begriffen, Handlun- 
gen und anderem ausdrücken: 

»Ein Auto besteht aus Fahrgestell, 
Karosserie, Sitzen, Motor... Der Motor 
wiederum besteht aus Kolben, ...« 

Dieses letzte Beispiel zeigt noch 
etwas: Im menschlichen Bewußtsein 
sind Autos, Sitze und andere Objekte, 
Begriffe und Konzepte keine einzelnen 
Einheiten, die einfach gesammelt wer- 
den. Menschen strukturieren ihr Wis- 
sen. Diese Einheiten sind kategorisiert 
oder in übergeordneten Einheiten 
zusammengefaßt. Ein Auto hat Sitze 
und der Motor ist zusammengesetzt 
aus Kolben und anderem. 

Das Verhältnis von einem zusammen- 
gesetzten Gegenstand und seinen Ein- 
zelteilen wird durch eine »Teil-von«- 
Beziehung ausgedrückt: 

Eine Ist-Beziehung stellt die Zugehö- 
rigkeit zu einer Art dar: 

»Ich fahre einen Käfer. Ein Käfer ist ein 
Auto. Ein Auto ist ein Fahrzeug.« 

Solche Zusammengehörigkeiten las- 
sen sich nicht nur einfach ausdrücken. 
Sie können auch ausgewertet werden, 
um Eigenschaften und Beziehungen 
zwischen einer Klasse auf ihre Spezies 
zu vererben. 

»Obst reift. Beim Reifen ändert sich oft 
die Farbe. Apfel ist Obst. 
Alsoreift ein Apfel und ändert dabei nor- 
malerweise seine Farbe.« 

Dargestellt werden diese Zusammen- 
hänge, wie der Name Netz schon sagt, 
als eine Folge von Knoten und Kanten. 
Durch Knoten werden üblicherweise 
die Objekte, Konzepte oder Situationen 
in einem Wissensbereich repräsentiert. 
Hier wären das: Auto, Kolben, Karosse- 
rie. Die Kanten stellen die Beziehungen 
zwischen ihnen dar. (Ein Auto hat einen 
Motor.) 

Systeme aus semantischen Netzen 
wurden zunächst entwickelt, um psy- 
chologische Modelle darzustellen. Das 
allgemeine Ziel war es, eine Methode 
zur Verfügung zu haben, die zur Dar- 
stellung der verschiedenen Wissens- 


typen in Programmsystemen geeignet 
ist. Dann entstanden spezielle semanti- 
sche Netze, die besonders zur Sprach- 
erkennung und Spracherzeugung ein- 
gesetzt werden und sich überall dort, 
wo mit natürlicher Sprach-Ein-/Ausgabe 
gearbeitet wird, sehr bewährt haben. 
Sie sind eine sehr weit verbreitete 
Repräsentationsart von Wissen im Be- 
reich der Kl-Programmierung. 
Metaregeln 

Nachdem das Wissen dargestellt 
wurde, wird es nun angewendet. Mit 
bestimmten Methoden kann man aus 
schon Bekanntem auf Neues »schlie- 
ßBen«. Die Methoden, die dabei ange- 
wandt werden, die Schlußfolgerungs- 
methoden, sind ebenfalls eine Art von 
Wissen auf einer höheren Ebene, sozu- 
sagen Metaregeln. Das Wissen dar- 
über, wie man Wissen anwendet (Meta- 
wissen), wird inmodernenKI-Systemen 
genauso in Netzen oder Produktionen 
dargestellt wie das Problemwissen 
selbst. Das ist eine Schwierigkeit beim 
Aufbau der Wissensbasis: Nicht nur die 
Fakten und Gesetzmäßigkeiten des 
Problembereichs müssen gesammelt, 
formalisiert und dargestellt werden. 
Auch die Informationen darüber, wie in 
dem Bereich Probleme gelöst werden - 
das Wissen über die Methodik des Pro- 
blemlösens - muß erfaßt werden. Und 
dies macht manchmal den schwierig- 
sten Teil der Arbeit aus. Nehmen wir das 
Beispiel Automatisches Beweisen - 
eins der ersten Probleme der Kl. Das 
Wissen sind die Gesetze der Logik. 
Diese zusammenzufassen, ist kein Pro- 
blem. Man muß nur ein entsprechendes 
Mathematiklehrbuch aufschlagen und 
hat sie schon gesammelt vorliegen. 
Aber wie beweist man nun einen mathe- 
matischen Satz aufgrund dieser logi- 
schen Gesetze? Die Strategien, nach 
denen man den Beweis für einen mathe- 
matischen Satz suchen soll - also das 
Metawissen für dieses Problem - sind 
noch zu wenig bekannt. 

Die KlI-Forschung steht also noch 
ziemlich am Anfang, solange so grund- 
legende Probleme nicht gelöst sind. 
Aber die Entwicklung schreitet schnell 
voran, und wer weiß - vielleicht sitze ich 
1991 wirklich vor einem Modell mit 
Namen Com-Pu-Ta, made in Japan... 

(cg) 
Literatur: 
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Vintage Books, New York, 1980 
»The Handbook of Artificial Intelligence, Volume 1-4« 
Pitman Books Lim., London, 1981 
»Methoden und Anwendungen der Künstlichen Intelligenz«, 
Radig, B.; Dreschler-Fischer, L.; Schachter-Radig, M.-J., Mac 
Graw Hill (erscheint Herbst 1986) 
Lisp: 
»LISP«, Winston, P.; Horn, B., Addison Wesley, Reading, Massa- 
chusetts, 1981 
»Principles of Artificial Intelligence«, Nilsson, Nils J. 
Palo Alto, 1982 
Prolog: 


»Programming in Prolog«, Clocksin und Mellish, Springer Verlag, 
Berlin, Heidelberg, New York, 19886, ISBN 3-540-11046-1 
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ie gesagt, inzwischen sind 
Ihnen Sprachen wie Forth 
oder C kein Buch mit sieben 
Siegeln mehr. Vielleicht haben Sie ja 
auch aufgrund unseres Sonderheftes 
die Sprache Ihres Herzens - sprich die- 


jenige, die Ihren Verwendungszwecken \ 


am besten entgegenkommt - bereits 
gefunden. Wir haben hier nun eine 
Marktübersicht zusammengestellt, die 
Ihnen bei der Auswahl Ihrer Program- 
miersprache - ob Sie nun einen C 64, 
Atari, Apple, QL oder Schneider besit- 
zen - helfen soll. Jeder gängige Com- 
putertyp und jede geläufige Program- 
miersprache wurde berücksichtigt. 
Außerdem finden Sie in der Aufstellung 
die Angabe der Hardware, ohne die Sie 
mit der jeweiligen Sprache nicht arbei- 


Programmname Datenträger! 


Preis (Mark) 


Aztec C D: 1630,- 


Aztec C 65 D: 895,- 
implementiert 


Basic-80-Compiler D: 1585,- 


D: 79,- 


Art der Sprache 
Compiler 


Compiler 
Interpreter 
Compiler 


Nach der Lektüre dieses Sonder- 


heftes kennen Sie mehr als nur 
Basic. Unsere Übersicht will 
Ihnen die Auswahl der Sprache 
Ihres Geschmacks erleichtern. 


ten können. Für den Geldbeutel fällt 
dieses Kriterium sicherlich ins Gewicht. 
Wer seinen Computer noch nicht zu 
hundert Prozent kennt, dem möchten 
wir raten, einen Blick auf die letzte 
Tabellenspalte zu werfen, die Angaben 
über die mitgelieferten Handbücher 
macht. Denn es ist von großem Vorteil, 
wenn ein Handbuch sowohl umfang- 
reich als auch in deutscher Sprache 
verfaßt ist, und nicht nur magere 20 Sei- 
ten englisches Fachvokabular bietet. 


Hardware-Voraussetzungen 
quelle 

Z80-Karte, PAN 

2 Disketten-Laufwerke 


Disketten-Laufwerk 
keine 


Disketten-Laufwerk, 
Z80-Karte, CP/M 


Disketten-Laufwerk HOF 


BRA 
APP 


Bezugs- 


a, Basic, Cobol — ein ABC 


Obwohl unsere Marktübersicht einen 
recht opulenten Eindruck macht, 
erhebt sie keinerlei Anspruch auf Voll- 
ständigkeit. Das Angebot ist einfach zu 
groß, um voll erfaßt zu werden. 

Die beiden Tabellen mit CP/M-Soft- 
ware beinhalten nur unsere (aus dem 
Hause Markt &Technik) unter CP/M lau- 
fenden Programmiersprachen. Die Ab- 
kürzungen in der Spalte »Datenträger« 
bedeuten D = Diskette, K = Kassette, 
M = Modul und MD = Microdrive. Inder 
Spalte »Handbuch« weist (d) darauf hin, 
daß das Handbuch in Deutsch, (e), daß 
es in Englisch geschrieben ist. Alle 
Daten beruhen auf Angaben der Her- 
steller beziehungsweise Anbieter. 


(wg/hi) 


Hersteller Handbuch-Umfang 


Manx Software zirka 300 Seiten (e) 


Manx Software 
Apple 
Microsoft 


150 Seiten (e ; 
zirka 60 Seiten (d) 
zirka 200 Seiten (e) 


Hofacker 


Compiler 
Compiler 


zirka 400 Seiten (d) 


D: 749,- Disketten-Laufwerk, PAN Microsoft zirka 500 Seiten (e) 


Z80-Karte, CP/M 
D: 395,- Interpreter Disketten-Laufwerk, 64 KByte PAN IWT 150 Seiten.(d 
Kyan Pascal D: 198,- Compiler Disketten-Laufwerk, 64 KByte PAN Kyan Software 106 Seiten (e) 


LisPAS D: 298,- Interpreter Disketten-Laufwerk, 64 KByte PAN Tommy Software 36 Seiten (d) 


Logo D: 387,- Interpreter Disketten-Laufwerk, PAN Apple 300 Seiten (e) 
80-Zeichen-Karte 


Z80-Karte, CP/M, 2 Laufwerke PAN 
2 Laufwerke PAN 
Disketten-Laufwerk 


Microsoft Cobol 
Micro-Dynamo 
Micro-Prolog 


D: 2489,- Compiler 
D: 980,- ef) 
Interpreter 


Microsoft zirka 400 Seiten (e) 
Addison-Wesley zirka 200 Seiten (e) 


Logic Programming 240 Seiten (e) plus 
Ass. ... Prolog-Buch. 


Interpreter/ Microsoft zirka 200 Seiten (e) 


Compiler 
Compreter 
‚Interpreter 


Mulisp/Mustar D: 769,- Disketten-Laufwerk, 


Z80-Karte, CP/M 
Disketten-Laufwerk Microsoft 


Disketten-Laufwerk, Ellis 
64 KByte, CP/M 


Disketten-Laufwerk, Ellis 
Z80-Karte, CP/M 


Disketten-Laufwerk, 
Z80-Karte, CP/M 


Disketten-Laufwerk, 
64 KByte, CP/M 


Disketten-Laufwerk, 
Z80-Karte, CP/M 


Pascal D: 955,- Compiler Disketten-Laufwerk APP Apple (d) 
Pascal D: 948,- p-machine Disketten-Laufwerk, 64 KByte PAN Apple zirka 800 Seiten (e) 
Prolog Z D: 149,- Compiler Disketten-Laufwerk, Z80-Karte HOF Hofacker 100 Seiten (d) 


Turbo Pascal D: 218,- Compiler Disketten-Laufwerk, PAN,HEI Borland 300 Seiten (d) 
Z80-Karte, CP/M 


D: 959,- 
D: 139,- 


Mumath/Musimp 
Nevada Basic 


zirka 200 Seiten (e 
220 Seiten (e) 


Nevada Cobol D: 139,- Compiler zirka 150 Seiten (e) 


Nevada Fortran D: 139,- Compiler 174 Seiten (e) 


Nevada Pascal Compiler 184 Seiten (e) 


Nevada Pilot Compiler zirka 150 Seiten (e) 


(*) Simulationssprache 
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Atari B800XL/130XE 


Programmname Datenträger! Art der Sprache Hardware-Voraussetzungen Bezugs- Hersteller 
f ER Preis (Mark) quelle 


Disketten-Laufwerk 
Basic XE(*) Interpreter 128 KByte RAM 200 Seiten (e) 
Interpreter 00 Seiten (e) 
orbereitung) 


L 


h { £ Compiler Disketten-Laufwerk d) 
Kyan Macroassem- D: 298,- Disketten-Laufwerk "COM Kyan Software zirka 200 Seiten (e) 
bler, zum Kyan (d in Vorbereitung) 

Pascal 

. Kyan Pascal Disketten-Laufwerk, COM Kyan Software zirka 100 Seiten (e) 

= ; 32 KByte RAM (d in Vorbereitung 


COM oss ) 


(*) nur Atari 130 XE 


2 me Datenträger! " Art der Sprache Hardware-Voraussetzungen Bezugs- Hersteller Handbuch-Umfang 
F Preis (Mark) quelle 


D: 198,- Assembler k.A. HIL Metacomco 

D: liegt bei Interpreter Digital Research 
Interpreter Metacomco 

D: 969,- (*) Compiler Digital Research 


D: ca. 60 Pfund Compiler 


Compiler A. Metacomco 


Compiler A. Prospero 


D: 890,- Compiler keine HIB Focus 190 Seiten (e 
D: 1348,- Compiler keine BRA TDI Software 150 Seiten (e) ; 
Metacomco 


ka D: 189,- bis 198,- Assembler PRI, HIB KUMA (di : 
ST Pascal D: 249,- Compiler keine ATA, HIB  CCD-Meyfeldt 52 Seiten (d) 
. UCSD-P-Pascal D: 890,- Compiler keine HIB Focus (e 


*) Innerhalb des Entwicklungspakets 


Programmname _ Datenträger! Art der Sprache Hardware-Voraussetzungen Bezugs- Hersteller 
Preis (Mark) quelle 


‚ADA-Trainings i Compiler Disketten-Laufwerk DAB Data Becker 
Assembler/ D: 73,90 Assembler Disketten-Laufwerk RO Profisoft 15 Seiten (d j 
'Digassembler K: 73,90 Datasette 


D: 69,- D'-\;etten-Laufwerk PRI Profisoft 15 Seiten (d) 


Datasette 
Compiler Disketten-Laufwerk DAB Data Becker 273 Seiten (d) 
Assembler Datasette THO .  Statesoft/Merlin Softw. 22 Seiten (e) 
Datasette 
Disketten-Laufwerk 
£ Compreter Disketten-Laufwerk 
K: 61,90 Compiler Datasette 
K: 62,90 Compiler Datasette 
Assembler Disketten-Laufwerk 


: 159,90, Disketten-Laufwerk, Datasette 
: 119,90 


Compiler Disketten-Laufwerk 
Compiler Disketten-Laufwerk PRO Limbic Systems 
: 199,-, K: 79,90 Compiler Disketten-Laufwerk, Datasette PRI, RUS  Limbic Systems 
Compiler Disketten-Laufwerk Data Becker 
Disketten-Laufwerk 
Assembler Disketten-Laufwerk Data Becker 
Compiler ! Disketten-Laufwerk Data Becker 


MAAPPYS 
COMPUTER 
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Programmname 


Prolog 64 
 Strukto 64 


White Lightning 
(Forth-Compiler) 


White Lightning 
(Forth-Compiler) 


White Lightning 


Datenträgerl/ 
Preis (Mark) 


D: 289,- 
D: 99,- 
K: 84,90 


Art der Sprache 


Interpreter 
Interpreter 
Compreter 
K: 76,- Compreter 


D: 119,90, K: 79,90 Compreter 


Programmname 


mt C 128 


Datenträger! 
Preis (Mark) 


D: 198,- 


Art der Sprache 


Compiler 


Hardware-Voraussetzungen 


Disketten-Laufwerk 
Disketten-Laufwerk 
Datasette 


Datasette 


Disketten-Laufwerk, Datasette 


Hardware-Voraussetzungen 


Disketten-Laufwerk 


Bezugs- 
quelle 


Bezugs- 
quelle 
De 


Hersteller 


Brainware 
Data Becker 
Oasis Software 


Oasis Software 


Oasis Schwere 


Hersteller 


Data Becker 


Handbuch-Umftang 


70 Seiten (d) 
78 Seiten (d) 
191 Seiten (e) 


191 Seiten (e) 


130 Seiten (e) 


Handbuch-Umfang 


zirka 300 Seiten (d) 


all [6 D: 148,- Compiler Disketten-Laufwerk/CP/M Markt & Technik 200 Seiten (d) 


D: 148,- Assembler 


Disketten-Laufwerk 


Markt & Technik 


100 Seiten (d) 


Programmname 


Datenträger! 
Preis (Mark) 


Art der Sprache 


Hardware-Voraussetzungen 


Bezugs- 
: geelıe 


Hersteller 


Handbuch-Umfang 


= integriert Interpreter keine Microsoft/ASC II zirka 200 Seiten (d) 


m. SAY Microsoft 


men Turtle 
Graphics 
nn Disk-Basic 


integriert 
integriert 
K: 119,- 
kk. A.: 139,- 
M: K.A. 

K: 69,- 


Interpreter 
Interpreter 
Compiler 
Compiler 
Interpreter 
Interpreter 


M: k.A. Interpreter 


keine 
keine 
keine 
keine 


m. 


Bi 


manage 


K.A. 
LCFI, Montreal 


PRI, RUS K.A. 


Microsoft 


170 Seiten (d) 
ag 300 Seiten (d) 


1 Seiten (d) 
(e) 


50 Seiten (d) 


SX-Forth K: K.A. Compiler k. 120 Seiten (d 


A. 
K: K.A. KA. K.A. 


= Macro 
une ran 


1 D: KA, Compiler 


m HEI 


er 


100 Seiten (d) 
= Seiten (d) 


K: 69,- Assembler keine k.A. 


Programmname 


Assembler 
Assembler 


Assembler Deve- 
lopment Kit 


Es 


Datenträger! 
Preis (Mark) 


K.A.: 120,- 
k.A.: 120,- 
MD: 159,- 


Art der Sprache 


Assembler 
Assembler 
Assembler 


k.A.: 198,- Compiler 


Hardware-Voraussetzungen 


Bezugs- 
q nal 


Hersteller 


Metacomco 
Computer One 
KA. 


mn 


Handbuch-Umfang 


k.A.: 248,- Compiler k.A. : 


ae Basic 
UCSD Fortran 77 
UCSD Pascal 


Compiler 
Compiler 
Interpreter 
Compiler 
Compiler 
Compiler 
Compiler ° 
Compiler 


k.A.: 198. 
k.A.: 175,- 
k.A.: 298,- 
k.A.: 218,- 
k.A.: 560,- 
k.A.: 560,- 


Schneider CPC 464 


Programmname 


ee -Compiler 


Cobol 
Cobol 


Datenträger! 
Preis (Mark) 


integriert 

D: 79,-, K: 69,- 
K: 138,90 

D: 159,90 

D: 169 

D: 189,- 


Art der Sprache 


Interpreter ' 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 


D: 129,- 
D: 189,- 


Compiler 
Compiler 


Hardware-Voraussetzungen 


Disketten-Laufwerk, keine 
keine 

Disketten-Laufwerk 
Disketten-Laufwerk 


Disketten-Laufwerk, 
ggf. Vortex-Erweit. 


Disketten-Laufwerk 
Disketten-Laufwerk 


Bezugs- 
quelle 


Metacomco 
Computer One 
Metacomco 
Computer One 
Metacomco 
Digital Precision 
TDI Software 
TDI Software 


Hersteller 


Schneider 


PRI, RUS Data Media 


en 


Hisoft 
Hisoft 
Hisoft 


Software Toolworks 


Ellis 
Ellis 


2 


ii 


ne Seiten (e) 


er Seiten (e 
48 Seiten (e) 


165 Seiten (e) 
Bi Seiten (e) 


Cogo K: 59,90 Compreter keine k.A. 


DEVPAC 
Dr. Logo 


Fig Forth 
Forth 
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D: 145,-, K: 129,- 


D: auf System- 
diskette 


K: 33,90 
K: 69,- 


Assembler 
Interpreter 


Compiler 
Compiler 


Disketten-Laufwerk, keine 
Disketten-Laufwerk 


keine 
keine 


25 


Schneider 
Schneider 


k.A. 


PRI,RUS  K.A. 


Seiten (d) 
zirka 25 Seiten (d) 


| Programmname 


Forth 
Forth 
Fortran 


Programmname 


Datenträger! 
Preis (Mark) 


D: 198,- 
D: 129,- 


D: 189,- 


ı 215,-, K: 199,- 


: 49,-, K: 49,- 


Datenträger! 
Preis (Mark) 


Art der Sprache 


Compiler 
Compiler 
Compiler 


Compiler 
Interpreter 


Compiler 
Compiler 


Compiler 
Compiler 
Compiler 
Compiler 


Assembler 


Assembler 
Compiler 
Interpreter 


Art der Sprache 


Hardware-Voraussetzungen 


Disketten-Laufwerk 


Disketten-Laufwerk, 
ggf. Vortex-Erweit. 


Disketten-Laufwerk 


Disketten-Laufwerk, 
ggf. Vortex-Erweit. 


1 MByte-Laufwerk, 
Vortex-Erweiterung 


Disketten-Laufwerk, 
ggf. Vortex-Erweit. 


Disketten-Laufwerk, keine 
Disketten-Laufwerk 
Disketten-Laufwerk 


Disketten-Laufwerk 
64 KByte-Erweiterung 


Disketten-Laufwerk, keine 


keine 


Disketten-Laufwerk 
Disketten-Laufwerk, keine 


Hardware-Voraussetzungen 


Bezugs- 
quelle 

THO 
SDA 
Al 


DL 


SDA 


MAR, HEI 


Hersteller 


Abersoft/Amstrad 
Ellis 


Ellis 


Hochstrasser 
Computing 


Hisoft 
Hisoft 


Hisoft 
Markt & Technik 


Profisoft 


Picturesque 
Borland 
GEPO Soft 


Handbuch-Umfang 


120 Seiten (e) 
60 Seiten (e) 
214 Seiten (e) 


214 Seiten (e) 
36 Seiten (e) 


96 Seiten (d) 
80 Seiten (e) 
90 Seiten (e) 
200 Seiten (d) 


19 Seiten (d) 


68 Seiten (e) 


15 Seiten (d) 


Bezugs- 
quelle 


Hersteller 


Handbuch-Umfang 


Basic integriert Interpreter keine CPC Schneider zirka 400 Seiten (d) 
R 


Basic-Compiler 


Pascal 
Pascal 


D: 79,90 
D: 159,90 
D: 169,- 
D: 189,- 
D: 199,50 
D: 129,- 
D: 189,- 
D: 145,-, K: 129,- 
D: liegt bei 
D: 189,- 
D: 129,- 
D: 189,- 
D: 189,- 
D: 499,- 


D: 215,-, K: 199,- 
D: 159,- 


Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Assembler 
Interpreter 
Compiler 
Compiler 
Compiler 
Interpreter 
Compiler 


Compiler 
Compiler 
Compiler 


keine 
keine 
keine 
ggf. Vortex-Erweit. 
keine 
keine 
keine 
keine 
keine 
keine 
ggf. Vortex-Erweit. 
keine 
ggf. Vortex-Erweit. 


1 MByte-Laufwerk, 
Vortex-Erweiterung 


ggf. Vortex-Erweit. 


keine 
keine 


US 
PRO 
ADL 
ADL 
SDA 
ADL 
SDA 
CPC 
CPC 
SDA 
ADL 
SDA 
ADL 
ADL 


ADL 


K.A. 

Hisoft 

Hisoft 

Software Toolworks 
Digital Research 
Ellis 

Ellis 

Schneider 
Schneider 
Abersoft/Amstrad 
Ellis 

Ellis 

K.A. 


Hochstrasser 
Computing 


Hisoft 


(d) 

(e) 

120 Seiten (e) 
48 Seiten (e) 
350 Seiten (e) 
165 Seiten (e) 
165 Seiten (e) 
60 Seiten (d) 
zirka 25 Seiten (d) 
60 Seiten (e) 
214 Seiten (e) 
214 Seiten (e) 
36 Seiten (e) 
(e) 


96 Seiten (d) 
80 Seiten (e) 


Pascal 80 D: 159,90 Compiler keine PRO Hisoft 90 Seiten (e) 


Superpack 80 


D: 141,90 


Assembler 


keine 


PRO 


Profisoft 


19 Seiten (d) 


Turbo Pascal D: 226,- Compiler keine MAR, HEI Borland (d) 
Turtle Graphic D: 49,- Interpreter keine ER GEPO Soft 15 Seiten (d) 


Schneider CPC 6128 


Art der Sprache 


Programmname 


Datenträger! 
Preis (Mark) 


Hardware-Voraussetzungen 


Bezugs- 
quelle 


Hersteller 


Handbuch-Umfang 


Basic integriert Interpreter keine CPC Schneider zirka 400 Seiten (d) 


Basic-Compiler 


r 
GP/M-C-Compller 


er: 
:OMPUTER 


D: 79,90 
D: 159,90 


D: 199,50 
D: 129,- 


D: 158,90 
D: 158,90 


D: liegt bei 
D: 145,-, K: 129,- 


Compiler 
Compiler 
Compiler 
Compiler 
Compiler 


Compiler 
Compiler 
Compiler 
Compiler 


Compiler 
Interpreter 
Assembler 


keine 


keine 
keine 


ggf. Vortex-Erweit. 


Disketten-Laufwerk 
mit 128, RAM 64 KB. 


keine 
keine 


RUS 
PRO 


k.A. 

Hisoft 

Hisoft 

Software Toolworks 
GEPO Soft 


Digital Research 
Ellis 


Hisoft 


Hisoft 
Schneider 
Schneider 


(d) 

(e) 

120 Seiten (e) 
48 Seiten (e) 
200 Seiten (d) 


350 Seiten (e) 
165 Seiten (e) 


zirka 100 Seiten (e) 


100 Seiten (e) 
zirka 25 Seiten (d) 
60 Seiten (d) 
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Abersoft/Amstrad 60 Seiten (e) 
D: 180. - Compiler keine Ellis 214 Seiten (e) 
ar D: 189,- Interpreter ggf. Vortex-Erweit. nr 36 Seiten (e) 


Oxford Pascal D: 149,- Compiler keine RUS Oxford Computer (d) 
Systems 


ggf. Vortex-Erweit. (e) 
D: A ,‚K: 199,- Compiler keine = Hisoft 96 Seiten (d) 


Programmname Datenträger! Art der Sprache Hardware-Voraussetzungen Bezugs- Hersteller Handbuch-Umfang 
‘ Preis (Mark) q a 


D: 199,50 Compiler i Digital Research 350 Seiten (e) 

D: 189,- Compiler an Ellis 165 Seiten (e) 

D: liegt bei Interpreter Schneider zirka 25 Seiten (d) 
D: liegt bei Interpreter rc Schneider zirka 400 Seiten (d) 
D: 199,50 Compiler Digital Research 270 Seiten (e) 

D: 226,- Compiler Fr HEI Borland (d) 


Datenträger Art der Sprache Hardware-Voraussetzungen ger Hersteller Handbuch-Umfang 
Preis (Mark) 


Bug-Byte 9 Seiten (e) 
Oxford Computer 31 Seiten (e) 
Systems 

K: 98,- bis 100,- Compiler 48 KByte Hisoft 78 Seiten (e) 


Eitonssembier K: 32,- bis 34,- Assembler Be PRI Profisoft 34 Seiten (d) 
Interpreter i KA. 
K: 57- bis 59,- Compile 48 KByte oe PRI Sinclair 60 Seiten (e) 


ee Basic-Comp ler K:75, ‚90 Compiler keine Individual Software 4 Seiten (e) 
en K: 33,- Assembler K.A. K.A. 
: Fre (e) 

K: 78, - er 48 al Hisoft 98 Seiten (d) 

K: 74,90 Compiler 48 KByte Hisoft zirka 60 Seiten (e) 

K: 99,- Compiler 48 KByte m. RUS Hisoft zirka 60 Seiten (e) 

K: 99,90 Compiler k.A. Hisoft 79 Seiten (e) 

K: 23,90 Disassembler k.A. E Campbell Systems 1 Seite (e) 

K: 49,90 Compiler k.A. THO Hisoft 33 Seiten (e) 


White Lightning K: 59,90 bis 63,90 Compreter 48 KByte ), Oasis Software 132 Seiten (e) 
{Forth-Compiler) 


Bezu gsquellen Philgerma, Ungererstr. 42, 8000 München 40 


ACC Computer Accessoires, Jägerweg 10, 8012 Ottobrunn Hofacker Verlag, Tegernseer Str. 18, 8150 Holzkirchen 
ADL Adler-Computertechnik, Elisabethstr. 5a, 5800 Hagen 1 Jöllenbeck, Im Dorf 5, 2730 Weertzen 

APP Apple, Ingolstädter Str. 20, 8000 München 45 Markt & Technik, Hans-Pinsel-Str. 2, 8013 Haar 

ATA Atari Corporation, Frankfurter Str. 89 - 91, 6096 Raunheim Pandasoft, Uhlandstr. 195, 1000 Berlin 12 

BRA Brainware, Kirchgasse 24, 6200 Wiesbaden Philips, Mönckebergstr. 7, 2000 Hamburg 1 

CPC Schneider Computer Division, Silvastr. 1, 8939 Türkheim Printadress, Postfach 15 - 73, 3548 Arolsen 

COM _Compy-Shop, Gneisenaustr. 29, 4330 Mülheim/Ruhr Profisoft, Sutthauser Str. 50 - 52, 4500 Osnabrück 

DAB Data Becker, Merowingerstr. 30, 4000 Düsseldorf Rushware, An der Gümpgesbrücke 24, 4044 Kaarst 2 
DRE H.G. Dreeser, Im Rosenhag 6, 5300 Bonn 1 Sanyo Büroelectronic, Truderinger Str. 13, 8000 München 80 
GEP GEPO Soft, Gertrudenstr. 31, 4220 Dinslaken Schneider Data, Rindermarkt 8, 8050 Freising 

HEI Heimsoeth Software, Frankfurterstr. 13, 8000 München 5 Sony Deutschland, Hugo-Eckener-Str. 20, 5000 Köln 30 
HIB HIB-Computerladen, Postfach 21 01 25, 8500 Nürnberg 21 Thomas Wagner, Postfach 112243, 8900 Augsburg 
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Datenträger 


Produktname 

Turbo-Pascal 3.0 Diskette Compiler Markt &Technik 
C-Basic-Compiler Diskette Compiler Markt &Technik 
Small-C-Entwicklungssystem 148,- Diskette Compiler Markt &Technik 
Pascal/MT 174,- Diskette Compiler Markt &Technik 
Turbo-Lader-Grundpaket 138,- Diskette Markt &Technik 
Turbo-Lader-Business 148,- Diskette Markt&Technik 
Turbo-Lader-Science 189,- Diskette Markt &Technik 
Turbo-Pascal-3.0 grafikunterstützt Diskette Markt &Technik 
Turbo-Grafik Diskette Markt &Technik 
Turbo-Toolbox Diskette Markt &Technik 


Hisoft-C-Compiler Diskette Compiler Markt &Technik 


Programmiersprachen unter CP/M-80 


Preis 


Produktname Datenträger 


Art der Sprache Anbieter 


ADA-Compiler 1162,80 Diskette Compiler 80 Markt &Technik 
C Basic 1881,- Diskette P-Code Interpreter Markt &Technik 
C Basic 564,30 Diskette Compiler Markt & Technik 
MS Basic 1615,38 Diskette Interpreter Markt &Technik 
MS Basic 1429,56 Diskette Compiler Markt&Technik 
BDS-C 564,30 Diskette Compiler Markt& Technik 
Supersoft C-80 1356,60 Diskette Compiler Markt & Technik 
Cobol Level Il 3846,36 Diskette Compiler Markt & Technik 
MS Cobol 2859,12 Diskette Compiler Markt & Technik 
RM Cobol 2793,- Diskette Compiler Markt &Technik 
Forth 8080 855,- Diskette Interpreter Markt & Technik 
Forth Z80 855,- Diskette Interpreter Markt & Technik 
Fortran 80SS 1647,30 Diskette Compiler Markt & Technik 
MS Fortran 80 2045,16 Diskette Compiler Markt & Technik 
MS Multisp 818,52 Diskette - Markt &Technik 
PL/I 1815,- Diskette Compiler Markt&Technik 


‚Schnelligkeit ist Trumpf! 
Lernen Sie Schritt für Schritt Maschinensprache 


mit dem 64’er-Sonderheft: 
»Assembler«: 


Ein grundlegender, umfassender Assembler-Kurs und ein zweiter über 
effektives Programmieren mit Assembler helfen auf 100 Seiten allen 
Anfängern und Fortgeschrittenen nach Basic nun auch in Maschinensprache 
Fuß zu fassen. 

Alle, die keinen Assembler- oder Maschinensprache-Monitor besitzen, 
finden komplette »Werkzeugsätze« für Hypra-Ass, SMON und einen 
Hypra-Ass-kompatiblen Reassembler. Mit diesem Programmpaket lösen 
Sie jede noch so knifflige Aufgabe in Maschinensprache optimal. 

Viele Tips& Tricks zeigen, wie man mit Assembler arbeitet. 
Zu allen Listings sind die dokumentierten Quellcodes angegeben. 
Und als Top-Punkt zum Schluß eine Zusammenfassung der 
wichtigsten Tabellen: Befehlssatz des 6510, ROM-Routinen in eigenen 
et: die Codes des C64, Befehlsliste zu Hypra-Ass, Reass 
un i 


tür Anfänger und For mit allen norwendlän. 'g bh Pr 
a ba Schon lange nach diesen 
und tricks # i ® 

Informationen gesucht? 


Dann bestellen Sie das große 64’er-Sonderheft »Assembler« 
(8/85) mit der im vorliegenden Sonderheft eingehefteten 
Zahlkarte (Happy-Computer-Vertrieb, Leser-Service). 
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1. Lüke/P. Lüke 


Turbo-Pascal 
1985, 290 Seiten 


Das vorliegende Buch ist eine nach 
didaktischen Gesichtspunkten aufge- 
baute Einführung in sämtliche Versio- 
nen (einschl 3.0) auf allen verfügbaren 
Betriebssystemen (CP/M, CP/M-86, 
MS-DOS). Es bietet nicht nur eine Ein- 
führung in die Sprache, sondern auch in 
das reichhaltige Repertoire an Zusatz- 
funktionen (auch für Grafik, Farbe, 
Sound und Window-Technik sowie für 
direkten Speicherzugriff) und Zusatzbi- 
bliotheken (Turbo-Toolbox, Turbo-Lader). 
Best.-Nr. MT 90150 

ISBN 3-89090-150-6 DM 49,- 


J. Purdum/T. Leslie/A. Stegemöller 


Die C-Programmbibliothek 
1.Quartal 1986, 361 Seiten 


Dieses Buch erspart dem C-Program- 
mierer Stunden mühseliger Kleinarbeit 
und hilft, effizientere Programme zu 
schreiben. Der erste Teil zeigt, wie man 
zu universellen Bibliotheksfunktionen 
kommt und gibt Tips, wie C noch wir- 
kungsvoller eingesetzt werden kann. 
Der zweite Teil enthält eine Reihe aus- 
führlich erklärter C-Funktionen als wert- 
volle Ergänzung Ihrer Programmbiblio- 
thek. Dazu gehören unter anderem ein 
Terminalinstallationsprogramm, meh- 
rere Sortier-Algorithmen und ein Satz 
ISAM-Funktionen. Um die Anwendung 
der Funktionen zu verdeutlichen, ent- 
hält das Buch einige Programm- 
beispiele. 

© Die Programmbibliothek wendet sich 
an Leser mit Grundkenntnissen von C. 
Die gezeigten Programme und Funktio- 
nen sind so gehalten, daß sie rechner- 
und compilerunabhängig eingesetzt 
werden können. 

Best.-Nr. MT 90133 

ISBN 3-89090-133-6 DM 69,- 
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mA APPY® 
:OMPUTE 


Auf 


Ihrem Wes 


zum professionellen 
Computer-A nwender 


Das aktuelle Fachmagazin für Personal Computer. 


= Wenn Sie jetzt den Schritt vom Heim-Computer zur 
professionellen Anwendung eines Personal Computers 
planen ® Wenn Sie beruflich oder privat bereits einen 
Personal Computer benutzen ®@ Wenn Sie selbst profes- 
sionell programmieren ® Wenn Sie regelmäßig Informa- 
tionen über das breite Produktangebot auf dem Personal 
Computer-Markt benötigen ® Wenn Sie professionelle 
Hard- und Softwaretests suchen ® Wenn Sie Ihr eigenes 
System möglichst effizient einsetzen wollen, dann ist 
»Computer persönlich« genau Ihre Zeitschrift. 


Die konsequente Ausrichtung auf professionelle Anwen- 
dungen bietet Ihnen alle wichtigen Informationen. 


Und das alle 14 Tage, mittwochs bei Ihrem Zeitschriften- 
händler oder im Computer-Fachgeschäft. 


=a= auf diese 


Zur 

Anforderung 

Ihres kostenlosen 

Probeexemplares einfach den 
nebenstehenden Gutschein ausfüllen, 
ausschneiden, auf eine Postkarte 
kleben oder in ein Kuvert 
stecken und einsenden an: 
Markt & Technik, 

Verlag Aktiengesellschaft, 
Vertrieb, Postfach 1304, 
8013 Haar bei München. 


RI FÜR 
ivr Ivo 


Die einzige Wochenzeitung ausschließlich für Personal 
Computer im IBM-Standard. 


"= Wenn Sie an aktuellen und umfassenden Informatio- 
nen über IBM-PCs und kompatible Systeme interessiert 
sind © Wenn Sie stets über die neuesten und effektivsten 
Anwendungen für den professionellen und privaten Be- 
reich informiert sein wollen _ Wenn Sie sich für Markt- 
übersichten und ausführliche Testberichte über Hard- 
und Software interessieren ®® Wenn Sie sich mit 
CAD/CAM, Netzwerken und der Anbindung von PCs 
an Groß-EDV-Anlagen beschäftigen, dann ist »PC 
Magazin« genau auf Ihre Bedürfnisse zugeschnitten. 


Die Spezialisierung auf IBM-PCs und Kompatible er- 
möglicht eine gezielte Berichterstattung und bietet genü- 
gend Raum, um auf Anwenderprobleme spezifisch einge- 
hen zu können. 


»PC Magazin« — jeden Mittwoch neu bei Ihrem Zeit- 
schriftenhändler oder im Computer-Fachgeschäft. 


beiden Computer- Zeitschriften stoßen: 


GUTSCHEIN 


Senden Sie mir die neueste Ausgabe der von mir angekreuzten Zeitschrift kostenlos als Probeexemplar. 


Wenn mir »Computer persönlich« zusagt 

und ich es regelmäßig weiterbeziehen möch- 
te, brauche ich nichts zu tun: Ich erhalte »Compu- 
ter persönlich« dann regelmäßig alle 14 Tage per 
Post frei Haus geliefert und bezahle pro Jahr nur 
DM 98,- statt DM 143,- Einzelverkaufspreis. Zu- 
stellung und Postgebühren übernimmt der Verlag. 
Dieses Angebot gilt nur in der Bundesrepublik 
Deutschland einschließlich West-Berlin. Das 
Abonnement verlängert sich nur dann zu den 
dann jeweils gültigen Bedingungen, wenn es nicht 
2 Monate vor Ablauf schriftlich gekündigt wird. 


Wenn mir das »PC Magazin« zusagt und 
ich es regelmäßig weiterbeziehen möchte, 
brauche ich nichts zu tun: Ich erhalte mein »PC 
Magazin« dann regelmäßig jede Woche per Post 
frei Haus geliefert und bezahle pro Jahr nur DM 
155,- statt DM 229,50 Einzelverkaufspreis. Zustel- 
lung und Postgebühren übernimmt der Verlag. 

Dieses Angebot gilt nur in der Bundesrepublik 
Deutschland einschließlich West-Berlin. Das 
Abonnement verlängert sich nur dann zu den 
dann jeweils gültigen Bedingungen, wenn es nicht 
2 Monate vor Ablauf schriftlich gekündigt wird. 
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Name, Vorname 
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Ort 


Datum 1. Unterschrift 


Mir ist bekannt, daß ich diese Bestellung innerhalb von 8 Tagen bei der Bestelladresse widerrufen kann. 
Zur Wahrung der Frist genügt die rechtzeitige Absendung des Widerrufs. Ich bestätige dies durch meine 


2. Unterschrift. 


Datum 2. Unterschrift 
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HCS586 


PROTEXT 


Die Profi-Textverarbeitung im 128er-Modus mit vollautomatischer Silbentrennung, integrierter 
Tabellenkalkulation und Zusatzprogramm zum Überprüfen der Rechtschreibung. 


PROTEXT ist ein leicht bedienbares Textprogramm mit hoher Leistungs- 
fähigkeit. Eingebaute Hilfefunktionen ermöglichen eine schnelle Einarbeitung. 
Mit PROTEXT sind daher auch Anfänger in der Lage, alle Vorteile eines profes- 
sionellen Textprogramms zu nutzen. 


Was PROTEXT alles kann: 


e Farbkombination für Hintergrund und Schrift (Vordergrund) frei wählbar; 

® formatierte Ausgabe auf Bildschirm und Drucker mit programmierbaren Hal- 
tepunkten über serielle, V24- oder zwei Software-Centronics-Schnitt- 
stellen; 

© vielfältige Formatanweisungen: linker/rechter Rand, vollautomatische Sil- 
bentrennung, Kopf-/Fußzeilen, Fußnoten, Zentrieren usw. 

®e schnelle selbstlernende Textkorrektur mit deutschem (ca. 25000 Worte) 
Grundwortschatz sowie neun Kundenbibliotheken, die in Text umgewan- 
delt, bearbeitet, ergänzt, sortiert und ausdruckbar sind; 


® Textübertragung per DFÜ mit Space-Optimierung und automatischer Feh- 
lerkorrektur; 


® leistungsfähige Rechenmöglichkeiten mit Zeilenmarkierung (Rechentabu- 


lator), Kolonnenverarbeitung, programmierter Tabellenkalkulation und 
Taschenrechner. 


Hardwareanforderung: 

e C 128 oder C128D 

© 80-Zeichen-Monitor 

® Commodore-Drucker oder Drucker 
mit Centronics-Schnittstelle 


Best.-Nr. MD 254A 


*inkl. MwSt. 
Unverbindliche Preisempfehlung 


TOPASS - 


Der ASE-Maaoassembler 
für den Commodore 128 PC 


mit integriertem Editor, 
Monitor und Linker. 


Dieser 6502-Macroassembler setzt neue Maß- 
stäbe. Seine Leistungsfähigkeit wird auch den ver- 
wöhnten Maschinenprogrammierer überzeugen: 


© integrierter Editor, der schon bei der Eingabe 
des Quelltextes eine Syntaxüberprüfung vor- 
nimmt; 

® integrierter Linker, mit dem quellgesteuertes 
Linken von relokatiolen Modulen möglich ist; 

® assemblereigene schnelle und gleichzeitig 
sehr leistungsfähige Integerarithmetik; 


® über 2000 Labels können gleichzeitig verwaltet 


werden, das heißt Maschinenprogramme bis zu 
einer Länge von ca. 25 KByte Objektcode kön- 
nen bei Bedarf in einem Rutsch assembliert 
werden; 


e Macros mit beliebig vielen Parametern, Macro- 
bibliotheken, Minimacs, bedingte Assemblie- 
rung, Labeleingabe im Dialog, Ausgabe forma- 
tierter Assemblerlistings, Ausgabe sortierter 
Symboltabellen und vieles andere mehr. 

Ze 

Außerdem wird der ASE-Macroassembler von 

einem sehr guten Monitor und einem Relativlader 

unterstützt, der relokatible Module an beliebige 

Speicheradressen laden kann und endlich Schluß 


macht mit den Dutzenden Maschinenprogrammen 
auf Diskette, die sich nur durch ihre Startadresse 
unterscheiden! 


Lernen Sie es kennen, 
das TOPASS Assembler-Entwicklungssystem! 
Es lohnt sich! 


Best.-Nr. MD 253A 


* inkl. MwSt. 
Unverbindliche Preisempfehlung 


Diese Markt&Technik-Softwareprodukte erhalten 
Sie in den Fachabteilungen der Kaufhäuser 
und in Computershops. 


Wenn Sie direkt beim Markt& Technik Verlag 
bestellen wollen: 
Nur gegen Vorauskasse, Verrechnungsscheck 
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Unternehmensbereich Buchverlag 


oder mit der eingedruckten Zahlkarte. 


Hans-Pinsel-Straße 2, 8013 Haar bei München 


Bestellungen im Ausland bitte an 
untenstehende Adressen: 


Schweiz: Markt&Technik Vertriebs AG, 
Kollerstr. 3, CH-6300 Zug, Tel. 042/41 5656 


Österreich: Ueberreuter Media Handels- 


und Verlagsges. mbH, Alser Str. 24, 
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